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SOL2 LANGUAGE SYNTAX 


The syntax for the SPL2 Language is described with syntax 
diagramse 


A syntax diagram consists of a main line which contains all 

required elements of the syntax. The main line may have other 

lines above and below it. Lines above the main line indicate. 
loops back in the syntax» and tines below the main tine indicate 

alternate productions. Continuation fron one Line of a diagram 

to another is represented by a right arrows “>"» at the end of 

the current line and the beginning of the next tine. A complete 

Syntax diagram is terminated by a vertical bars» "1". 


If an element appears on the main line of the syntax diagram» 
With no tines below jit» then that element is required. If an 
elesent appears on the main tine of the diagram» but other 
elements appear in lines directly below it» ther one cf thase 
elements is requirede if an element appears in a tine below the 
main line» and the main tine abcve it is empty» then the element 
is optional. 


Flements which are in uppercases or are special characters» are 
terminal symbols and must appear tLiteralty in the final 
Productions Lowercase elements reference a syntax diagram of 
that name. 


Example: 
[<= Ses e was} 
| 1 
aa a «aa a ac a Sc aa a -Se Ses ee ee Se aie 
{ ] ! 1 
[22S («=== | t<s= (=== 1 
1 j | ! 
fess 2 i s=1 [ae DSSS] 
I 1 { { 
[sss 5. =e=] : fS=5 Sas] 
where 
AQ3 is valid _ 
A183 is vatid 
A2Z2BB8C is valid 


AO is invalid 


i=2 
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SIRUCTURE OF AN SDL2Z PROGRAM 

Secriesorsess ts, Derlerations . sss B0Gy. SttsteeeseSssss anes | 


The structure of an SOL2 program must follow the sequerce 
described in the syntax granhs. Atl variables anc data types 
must be declared before the procedures» and all procedures must 
be dectared before the main executaole part of the frograa 
(Body). 


Program execution begins with the first statement in the program 
Body. : 


TOKENS 


SDL2 recognizes the following token types: identifiers» bit 
strings» fixed numbers» character strings and special characters. 


Comments are atlowed anywhere in the input stream» except within 
quoted strings» There are two forms of comments. The first ferm 
begins with a4 %Z anc terminates with the enc of that line. The 
second form begins with /* and terminates with «/. A comment 
enclosed in /* */ may span multiple Lines. 


Blanks» speciat characters» comments and endtofelines are all 
treated as separators» and so cannot be embedded within a token. 


IDENTIEIERS 


An SDL2 identifier msy contain a maximum of 72 characters. Valid 
characters include upper-case letters CA"Z)» towerccase tetters 
Cae2)» numerals €9-9)» and the underscore (€_). Identifiers must 
begin with a letter» and are case~sensitive. 


FIXED NUMEERS 
A string consisting entirely of numerals» without any bracketing 


characters,» is treated as a fixed number. 


Example: 
12366 
400 


1°93 
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Character strings are bracketed by the character ™. If a qucte 
is desired within a quoted string» then two quotes ("7") must be 
used. 


Example: 
"ABEDEF™ 
"KEYWORD ““THEN"™*" IS OUT OF CONTEXT” 


BIT sTRINGS 


Bit strings are bracketed by the character 2. The string may be 
either binary» quartals» actal or hexadecimal» where the number of 
‘bits per digit is specified within parenthesis. The default is 
hexadecimal €4 bits per digit). 


Exarple: 
a0AFF a2 
a€1)9100a 
a{2901223 


SPECTAL CHARACTERS 


9DL2@ recognizes the following special characters. 


~! PA ER OO 
le * 
NM RV A 
ys @ 2 a 
head 


um “oe 60 6 


zol 
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DECLARATIONS 
DECLARATIONS 
i a a eh car aE | 
| | 
eaeag a2 aun aouanaeasuweeanm Pe Bente nsawagtg sane etagaantaan B@Qeaeea eteewa nana = a @ -_ 2m an em aawanauma’y 
! 1 
l-- Define Declaration --"-"-- i= 37> 224 
! | 
Im“- File Dectl@ration s7*"7°7" 1 


Im" Switch File Declaration 7! 
I-- Type Dectaration "“°-" =<] 
im-- Constant Declaration -"--] 
— Record Declaration es 


t~- Set Declaration -c7°*°*--- ! 


!-- yYariable Declaration 7*---! 


I-- Procedure Declaration 7777-7" > =] 


All identifiers must be declared Sefore they can be referenced,» 
except within the define text of a define declaratiane where they 
must be dectared before the expansion of the define. 


scope of gn Identifier 


For globat declarations» the scone of an identifier is ali the 
subsequent declarations» nested procedures and the main bady of 
the programs except for any . nested procedures that declare 
another version of the indentifier. 


For a declaration within a orocedures the scope of an identifier 
1s that procedure and any nested procedures» except for any that 
declare another version of the identifier. 


= ace. 
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DEFINE DECLARATION 


| : 
--- DEFINE --~- Define Head ---~ AS -- # -- Define Text -- # -----1 


se=. Define Identifier Tess seeee"= Lene s SS Saas aS s= Ses er ese] 
i ! 


t-- € -- Define Parameter List = ) ==] 


Define Parameter List 


j <=- Ce ed , ewe mewe wa 1 


ge a ne =memuwm Identifier nee eee mmm wee a ec eter ean secon ew aeceoc aww awene= | 


Define Identifier 


ala lapatataiatataneiaebstetatatatetabtetateeteatate Identifier  --cscercrsccensecrecne----| 


The CEFINE dectaration atlows a string of text to be allocated an 


identifier. Whenever this identifier is encountered in the 
source program it is replaced by the text Cexcept in a define 
declaration). Define expansion is also turnec off when the 


compiler is expecting an identifier in any of the following: 
Declaration identifier» Define Identifier» Procedure Identifier» 
Formal Parameter Identifiers Do Group name. 


A define declaration may have parameters. When the define text 
1s invoked there must be a text string for every parameter. This 
String will replace atl occurences of the aefine parameter 
identifier in the define text. 


2-3 
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Exampie: 
DEFINE 
FALSE AS OF, 
TRUE AS a1#» 


ARRAY_SIZE AS #10244» 


MAX(X+Y) AS # IF X>Y 
THEN X 
ELSE Y#s 


FILE QECLARATION 
See section 5 = INPUT/OUTPUT 
“SHTICH ELLE DECLARATION 


See section 6 = INPUT/OUTPUT 


CONSTANT DECLARATION 


a 


eTeee CONSTANT Ser es Ss se Constant Identifier “c2s = 9" Value “T= +s 


A constant declaration introduces an identifier as a synonym for 
a constant. Vafue may be either a character or bit literal» an 
excression which evaluates to a fixed constant» or a previously 
defined constant. 


Exasple: 
CONSTANT TEN = 19>» 
FIFTY = 5 * TEN» 
LEVEL = "11.0"5 


2-4 
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TYPES 
Jype 


t 1 
Il-- Reference Type 7] 
J ! 
te-- Pointer Type 777} 


Sigole Iyoe 


oe---- FIXED tower n eee cece ce nn tenn enn nt nn ne nen neers e cree] 


Peeno= CHARACTER 9 ott ern steer cree conn cnn enn en eneen =] 


1 oi-- BIT --9---- “-l i-- C == Type Size “= 0 mh I 
[-- VARYING --"---- ae ear 
ie Teer Tdentifier "7-777 Sep eet ere ghee pga Pek ecns ieee eeeee 
ie Set Identifier ctess- cern enen on --- seseee- ceercoe-- a 
= CHARACTER_SET -20-e-2-----------++--- == +e bese 
iss MEMBER OF <-- Set Identifier  -c9rse---9--=- aesenie 
— BOOLEAN ceeecen een ctteen- weccceecee stattaehatetetae ees 


The type BIT witlk allocate a field of «Type Size> bits. It can 
have a maximun size of 65535 bits. <Type Size> can cnty he 
omitted in the <Type> part of a formal parameter declarations the 
<Type> part of a procedure declarationse or a Reference Type 
declaraticn» indicating that the size is dynamic. 


The type CHARACTER wilt atlocate a field of <Type Size> 
characters. Each character occupies 8 bits. It can have a 
maximum size of @191 characters. <Type Size> can only be omitted 
in the <Type> part of a formal parameter declaration» the <Type> 
part of a procedure declaration» or a Reference Type dectaraticn»p 
indicating that the size is dynamic. 


The type FIXED will allocate a 24 dit field» where the high orcer 
bit is interpreted as the sign bit (9 = pasitive, 1 = negative). 
Negative values are represented in their two's cosrplement forme 
and can have a range of “C€2**23)#1 to C2**23)-1. 


2-5 
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The type VAFYING can only de used in a procecure oectlaration and 
a fcrmal parameter declaration. It indicates tnat both the type 
-and tength are dynamice 


The type <Record Identifier> will allocate a field with the 
length of the sum of the fields in the Recerd Oeclarations and 
make availiable the field names for fietd selection. 


The type <Set Identifier> will allocate a fietd with a tength 


equél to the number of members declared in the Set Dectaration 
Cin cits). 


The type@ CHARACTER_SET is a predefined Set Declaration with 256 
members» the EBCDIC character set. 


The type <MEMBER OF > will altocate a field with a tength equal to 
number of bits required to represent the set member with the 
largest ordinal value. 


The type BOOLEAN is a predefined Set 4ember Declaration. It is 
defined as a member of a set containing two members»s TRUE and 
FALSE. 


Reference Iyge 


sesseen “REFERENCE “SSS<2<=-2<52-e5==45>5< a a a a a ae 
! | 
f<e-- REFERENCE w--~- Simote Type --l 
I ! 
-frr" Simple Type cw-7 REFERENCE <--] 


Exaaples: 
DECLARE 
TEXT REFERENCE CHARACTER, 
SOURCE CHARACTER (€30), 
REFER TEXT TO SOURCE>s 


If a reference type is declared ina Variable Declaration» a 
descriptor is attlocated for it on the ODescrirtor Stack. It 
criginaliy has no data associated with it» but can be REFERed to 
Some data space. 


If a field is declared to have a type of reference in ae Record 
Declaratation»r 96 bits are altocated. If it is REFERed to a 
field in static memory» a copy of the descriptor is storea into 
the field. If it is REFERed to a fielc in dynamic memoryer a 
symbolic form of the descriptor is stored in the field. The 
selection of a field that is a reference type wilt cause an 
automatic dereference? the descriptor can only be accessed with 
a REFER statement. 


: —s 
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Pointer Iype 


ee ae TOLNCER. 28 “S1ORte Type: SSE sh eae rrr oes ea teeter sss see se 


The type of a pointer must be a fixed Length tyne. A fielc of 24 
bits will be attocated to contain the address of the refered déta 


spaces There is no protection if a pointer is refered into 
dynamic memory and that page gets rotted out of memcrys Its main 
use is for the MCP. Reference to a pointer will cause an 


automatic dereference to the field pointed to by the pointer. 


RECORD RS_NUCLEUS 


aad 


MCP_BIT BIT(1)> 
RECORD HINTS_FORM 


FIRST_9 POINTER RS_NUCLEUS» 
MCP_RSN POINTER RS_NUCLEUS» 
DECLARE HINTS HINTS_FORMS 


HIATSe¢MCP_LRSNMCP_BITS=TRUES 


ae 
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TYPE DECLARATION 


The TYPE Declaration allows an identifier to appear as a Type 
inside a# Variable Cectaration» Procedure Declaration» cr Type 
Declaration. Onty fixed Length types are allowed. 


Exagple: 
TYPE - STATE_INDICATOR = MEMBER OF STATE_SPACE> 
ADDRESS = BIT €24)> 
STATE_VECTOR = €8) STATE_INDICATOR; 
DECLARE STATE STATE_INDICATOR>s» 


YECTOR STATE_VECTOR>» 


IF WECTOR C1) IN TERMINAL_STATES THEN TERMINATE CI)3 


ee 
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RECORD OFCLARATION 


,aen=- RECORD =f] s= Unstructured Record. sss seers es ee ees eee = ] 
Iw" Structured Record ==] 

The Record Declaration is a convenient way of mappirg the tayout 

of a structure. It allows variables and fields within other 


records to be given structuree (See Selectors» and WITH statement 
for referencing of subfields). 


Unstructured Record 
a na teed Record Identifier erernwm~§6 Field List Se Aen Sa ae ae ae ee a eee | 


Field List 


[ <-e esc ew ew ew ewmwee ? ee. Se ee ee a Se ee } 
i : { . 
SS SoS = Se Pietid Tdeanttiver. Ss" Type <SSSS<9sse<=<S<Ss5 <= oe == ==} 
j 1 { 
} bes FILER S29 4s Ser = i 1 
| | 
In--=- [ Cospatial Field List J «"<----] 
Cospatial Eielg List 
[es 5ss> | =< i 
1 1 
ecerrn= Field List  "*-"-° osscse ase ns ee ne ence tes eseeaerae Tes women ae | 


Fields may be declared cospatial» that is each field list remaps 
the other cospatial field Lists» and the tength will always he 
the tength of the tongest field list. 
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Examples 


RECORD SYSTEM_DESCRIPTOR_F ORM 


IN_USE BITL1)> 
MEDIA BITC1L)> 
LOCK BITC1)» 
IN_FROCESS BITC1L)> 
INITIAL BITC1)» 
FILE_OBJECT BITC1)> 
OK_FACTOR BIT(3)> 
SEG_PG BITC7)» 
TYPE BIT(4)> 
[ADOR BITC36)> 
1FILLER BITC12)> 
CORE BIT(24)> 
1» 

LEN BIT(24)3 
DECLARE 


SYSTEM_LDESCRIPTOR SYSTEM_OESCRIPTCR_F ORM; 


IF SYSTEM_DESCRIPTOR.MEDIA 
THEN READ_TO_MEMORYs 


aicuctures Record 


Sees sae SSS A. 8 “Record identit ter == Type ==.» Serres => 
2a Re Se een Structured f tetd Cast. -“ntse tse res Sse sear SS 
stcuctured Field List 
| Con cane ene cee nnnwesewennn= p 0 ween mm ec onan eweneces sow ecen- I 
j 1 
wrrm-- Level NumdDer =" Structured Fietd Identifier =" Type eceee7""> 


structured Field Identifier 
ach aa Ldaentitier Sse sss3ssSse Sess ee Sse 6a as SSS SSS eS Se 
if | | . ! | 
Pointers DUMMY seer t tas REMAPS =" Remaps Object "i 1! 
I | 


[se= <=> FILLER 
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Remgps Obiect 


werwens Identifier tots re tert tsn ern ncn eres cece cnceneccee= conesn- i 


Example: 


RECORD 01 MEMORY_LINK BITCMEMORY_LINK_ SIZED» 


O62 mML_DISK DSK_ADDR>» 
02 ML_GROUP BIT(47)> 
G3 ML_POINTER | ADURESS» 
03 ML_JOB_NUMBER BIT(16)> 
03 NL_TYPE — - BITC6)» 
03 ML_SAVE BITC1)> 
O02 ML_SIZE BI1(24)> 
02 ML_PRIORITY_FIELD BITC30)> 
93 ML_CK_ INTERVAL BIT{1C)» 
03 ML_CURRENT_DK_INT BITC10)» 
03 ML_INCOMING_PRIOKITY BITCS)» 
93 ML_RESIDENCE_ PRIORITY — -BIICS)» 
04 ML_RP_WHOLE : BITC4)> 
O4 ML_RP_FRACTION BITC1)> 

O02 ML_FRONT BITC24)» 
02 ML_BACK BITC24)> 
02 ML_USAGE_BITS BIIC2)> 
03 ML_PREVIQUS_SCAN_TOUCH BITC1)> 
03 ML_CURRENT_SCAN_TOUCH BITC1)3 


The structured record declaration is included in SDL2 onty as a 
means of easier conversion cf the SDL PL/I styte structures. 
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SET DECLARATION 


>eeaeeen = = asaeweuwuenman nw aeaawouns Member Identifier seeeunwunue es awww meee «= } 
The Set Declaration is used to define the Members of a Sete Each 
member 18 given an ordinal values in descerding orcere The last 
member will have a value of Zeroe 


CHARACTER_SET is a pre-defined SET declaration of 256 members. 


See also MEMBER OF in type declarations. 


Example: 
SET P8COGLEAN = TRUE» FALSE? 
DECLARE 
STATE MEMSER OF BONLEAN> 
NUMERICS CHARACTER_SET> 
CH CHARACTER(C 13s %2 COULD BE MEMGER OF CHARACTERSET. 


NUMER TES 28> O° Ge 841% se FP 2P se MS ee PAs OO Nhe OMT Se: NAM Se OT Ws 


IF CH IN NUMERTICS 
THEN STATES= TRUE? 
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“-- DECLARE “ “cccoC+e-- Variable Identifier ------ cer eene Type --! 
I-- ¢ -- Identifier List <== ) med 


The DECLARE statement allocates menory storage for variables and 
defines their type. 


Static variables wilt be allocated space in memory and wilt not 
nave a descriptor e 


Dynamic vériables will be alttocated a descriptor» and space witt 
be éellocated when an ALLOCATE is executed if it is at texic tevel 
O» or on procedure entry if nested in a procedure. No explicit 
declaration is required for dynamic variables» excerct PAGED 
arraySe If the type size and/or the array bound is * at texic 
Level OQ» or an expression Cnon constant) at ary other texic 
level» it will be considered a dynanic declaration. Lexic Level 
0 dynamic variables mnust be ailocated in the gtobal code. (See 
also dynamic parameters to procedures). 


REFERENCE variabtes do not have space attocated» but get a 
descriptor allocated that may de REFERed to some data space. 


identifier List 


oe eececne--- eoceen- Variable Identifier  -crseert-se------ a ieletatatetatatel | 


aenenwaenaenwe tea na Simple Ident ifier anna ewww eo wes wesw ena coma one | 
1 I 
I-- Paged Array Identifier <-1 
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Rinogte Igentifier 


ees Ddent it ter. Sere Se Ses eS Sass Ae See SS ae eae SSS 2 Ss eS SS 


wve~ PAGED -= € =" Elements Per Page =" ) == Identifier 


Pee eae as SS <, (ee: APeay sound: BS ) se eseassees Sse esse 


Elements Per Page must be a power of two» betweer 2 and 32764. 
Array Bound can range from 1 to 55535. 


Example? 
DECLARE 
I FIXED» 
CJ»K) : ’ CHARACTER 190) > 
A €10) FIXED» 
C CHARACTER(*)>» 
R REFERENCE FIXED, 


PAGED (16) P (1024) FIXED; 
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PROCEQURE DECLARATION 
rape at) nee eee eee eat ee PROCEDURE -~ Procedure Identifier  -s""""ss-"-9"> 
! 1 
f-~ FORWARD --7] 
| | 
bo" EXTERNAL oo 
>a sen w aw oawtemo nana @ Renew SNES TED awees aes ew aouanaww ew ane 3 wea a > 
1 ! ! I 
I-- Parameter List cf! l== Type =! 
> ageeqaqa az = =m Eee em es m=_eeenwunrensen es waa ws Se gqeaeaeneedes ea wseaeaewe eaqge eae = ry wsencn anes aae> 
Z| { 
i-~ Format Parameter Declaration 7] 
>see set wane nsw a nanan wea ee PHVA SBS FCs Fs eeaegna ws ss eae ws Sse eet ew et ween eae | 
1 ! 
naam oS ane i an ey ete alee ere ee ge END - Procedure Identifier --! 
] { 1 1 
l-- Declarations 7-7] f!-- Body cl 
Parameter List 
ee eal ¢ = Edentitier Last. oes 3). Sse es Sse ee = Ss See Ss Sees am: | 
Formal Paraneter Declaration 
] <eewew ee rer ere ase @w2 @ aw =_ a = oe oe > we wwesewaaaawe ws se ween ewes eae esanmaaca = | 
| 1 
j {<{-3-~- eS Se “as “sae w@ s aaa we we we wees anmaa | ] 
! ! ! ! 
Ss aes PORMAL, SSSeterese= Lene riieh SS SsSeere esse e se ae eer 
I a | 1 
I-- FORMAL_LVALUE -! Jer C wm- Tdentifier List *- ) -1 
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identifier List 


l<<--re#- ey sene2 2° | 


The Procedure Declaration is used to define a program fragment 
and to éssociate it with an identifiers so that it can be 
activated by a Call Statement or Typed Procedure Call. 


Declarations within a procedure onty have the scope of that 
procedure (i.@. when the END Procedure Identifier is enccuntered 
they are no tonger accessidle to the programmer ). lf a procedtre 
needs to be called before it is declarad» a "FORWARD" declaration 
Must be made to define it and its format parameters. see 
*Separate Compilation’ for use of "EXTERNAL®. 


Procedures may be nested to a maximum of 15 levels. 


The order of declaration of formal parareters ust match the 
order in <Parameter List>. 


If a parameter is declared FORMAL_VALUE» a copy of the data will 
be msde» and. the original data will be preserved. An Array tay 
not be declklared FORMAL_VALUE. 
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Example: 
FORWARD PROCEDURE ACP)> 
FORMAL P FIXED> 


PPOCEDURE BCP) 
FORMAL P FIXED? 


ACP )> 


END B> 


PROCEDURE ACP)3 
FORMAL P FIXED> 


BCP); 


END A> 


PFOCEDURE MAXCX»Y) FIXEDs 
FORMAL €X»Y) FIXED; 
IF X>Y 
THEN RETURN X32 
ELSE RETURN Y> 
END MAK> 
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Booy 


cerrr- Statement List 


STATEMENT 


STATEMENTS 


Assignment Statement 


Call Statement “777 
Case Statement  “e.-7 
Do Statement cs ="77"5" 
For Statement  «ct*"ct7>* 
If Statement 7977-7" 
Refer Statement --"- 
Reduce Statement --=- 
Repeat Statement 7-7 
Return Statement 7" 
Stop Statement “"--" 
Swap Statement -“""" 
Undo Statement =--"-.-- 
bhile Statement  "-7.;7 


hKith Statement -"*.c.7.7 


SDL2 SYNTAX 
PaSe. 2222 3519 
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ASSIGNMENT STATEMENT 

atts Address Generator 777" 2= "72" Expressicn wrt ts esse 
The Assignment Statement is used to store a vaitue into a 


variable. 


See also Put File Attribute in 
Examples 
DECLARE 
CA» Be C) FIXEDs 
At= 8 + C> 


INPUT/OJTPUT section. 


s=:3 
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CALL STATEMENT 


Sos “F ROCedUre JIGRCIEIer sett Rs Ses ees Sse esse 29 Se a Sa a 


Pargmeter List 


The Call Statement is used to activate a procedure that has been 
declared with a Procedure Declaration. There must be an 


Expression itn the Parameter List for every Formal Parameter 
declared. 


Examples 
As= MAXCI»J);> 
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CASE STATEMENT 


svwanum inlabeted Case Statement <tr scrr sense Saas ee se = ad aaa 
] ; 
I-- Labeled Case Statement --7] 


Unizbeled Case Statement 


sem CASE +=" -Expressiton <<" = a= “Statenent List “st 3ss+s- Se a= = > 


Dw re ee re ne eee ee eee eee aan Sea ene = =: “END GASE -=“<-<<=] 
eo “ELSE “~. Statement =<] 


The value of Exoression is used as an index into Statement «+ List. 
The Statement setected will be executed arc control passed to the 
statement following END CASz» unless an UNDO cr RETURN is 
executed. It there are N statements in the List then the range 
of the exgression may be 0 to Nvie If the value of Expression is 
out of ranger the Statement following ELSE will be executed and 
control then passed to the Statement following END CASE Cunless 
an UNDO or RETURN statement was executed in the ELSE Statement). 
If Expression is out of range and there is no ELSE Statements a 
run time error will be generated. 
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Example? 
DECLARE 
HEX CHARACTER 1)» 
I FIXED; 
CASE I; 
HEX3= "03 
HEX2= "1% 
HEXs= "2%; 
HEXs= "35 
HEX3= "4%; 
HEX2= "5% 
HEXs= "6"; 
HEKs= "7 "3 
HEXs= "8%>3 
HEXS= "95 
HEXs= TAS 
HEXs= *8"3 
HEX3= "CC"; 
HEX3= "DF 


HEXS= "ENS 
HEX2= "FF", 
END CASE> 


Labeled Case Statement 


“-- CASE -- Expression  -" GF -- Labeted Statement List -c7(7-- > 


{| <7 e«- m=aeweuvuaeneanawaecenananwanewaeewen an aan a a aeecawoans maaan aan ewa -{ 

j 1 
eounnan an Label List =. 2 -~ 4 =_ am -— Statemert = an on oF 3 ee ee: ee ee » 
> ema weneweernwacneanuwa en ose aentwoenw eae ae seen wae ee ee ana nmaena eee = ew we a ow ee ae ee a a=] 


| ! 
fle- ELSE wrr= Statement alae | 
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Label List 
p<seee~ 3 sea 
1 j 
— e LOnSten’. SPs k reese ss Seas ses 
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“ 


The labelec case statement selects for execution that statement 
whase Label is equal to the value of Expression. After execution 


of the selected statement controt passes 


to the Statement 


following END CASE. If no statement has a label that is equal to 
the value of Expressions the Statement follcwing ELSE is executed 


and then control passed to the statement 


following END CASE 


Cunless en UNDO or RETURN statement was executed in the ELSE 


statement). If no ELSE clause is presente 
gener atede The value of ltabel constants can 
QO to 255s and may be of any type. 


Exampie:? 


DECLARE 
CH CHARACTERCi)» 
CH_UTYPE HEMBER OF TYPE_LSET> 


CASE CH OF 
WOT, TTA, Nore sree, tot frre, Ae aa ad 


CH_TYPES= NUMERICS 


wpe 

CH_TYPE?= SEMICOLON? 
“wis 

CH_TYPE2= COMMAS 
ELSE 


CH_TYPEs= UNKNOWNS 
END CASES 


arun time error 1S 


be within the range 


* 
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The DO group allows a List of statements to be grouped 
present control 
statement from the end of the statement 


If FOREVER is 


94/19/31 


903-6 


PLANT USAGE ONLY 


END 
i 
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Do Group Identifier 


tcegether. 


will be passed back to the first 


List. 


be exited with an UNDO or RETURN statement. 


Example: 
DECLARE 
I F 
A CARRAY_SIZE) F 
s= 03 
DO INIT_A FOREVER; 
IF I = ARRAY_SIZ 
DOs 
z= Q> 
UNDO INIT_Asz 
EN) » 
ACI):= I> 
Is= I t+ 3 


END INIT_A-z 


IXED» 
IXED? 


E THEN 


The 900 group can 
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“~~ FOR - For Loop Controt Variable -- = =" Expression "> 


ea see TO Satan EOP OSS LOR. SS S22 sss0een—e Ae a ne eee a> 
! | 
{-- COWNTO =I 


>a meter anaes st atement sag an eneana nae weawaeennwansn ant uaeuwewa wan acecenean= | 


The For Loop Control variable must be a simpte variabite and of 
type FIXEC. If the TO COOWNTO) option is used the For Loop is 
exited when the For Loop Control variable is greater than Cless 
than if OOWNTO) the Limit Expression. The exit condition is 
tested at the top of the toop. 


Examples 
DECLARE 
I FIXED» 
A CARRAY_SIZE):> FIXED; 


O TO ARRAY_SIZE - 2 ACI)2= I3 
ARRAY_SIZE - 1 DOWNTO 1 ACI)2:= If 


a9 
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TE STATEMENT 


wee TF os" “Expression. == “LHEN: =". Statement, “sere eee > 


> [=e @Eeaeeaweenews ees @aaaeeas & aeaea ea Seeenwmeueeseuw @&s 2g ea wa @ 4 @ ee eee een wow mw owe maaan ae | 


{ 1 
ies 3 = EPSE == -Statenent 4 


The Statement following THEN is executed if Expression yields a 
true result. Tf it is false» then eitner no Statement or the 
Statement following ELSE is executed. 

When uSing nested IF statements an ELSE wiil be matched to the 
closest previousty unmatched THEN. 


Exampte: 


DECLARE 
MAX FIXED, 
VALUE_1 FIXED» 
VALLE_2 FIXEC; 


IF VALUE_1 >= ¥VALUE_2 THEN 
MAX?= VALUE_13 

ELSE 
MAX:= VALUE_23 
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REFER STATEMENT 


en REFER -- Referent -". TO 7 Address Gererator “cerer=~=} 


The REFER statement is used to change the address Cand» except 
for pointerss tength and type) of a reference variables refererce 
field» pointer variabte or pointer fietd to map the data of 
another vériadle. | 


Examples: 
REFER TEXT TO BUFFER.TEXT?S 


sae ais Oe | 
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REDUCE STATEMENT 


se" REDUCE -*=. Object Reference Variable <=s=-s<" ene lee Pane ere 


> eo umeqmeeaawweee@rvrmeanaege se eseaeeq Bee Ee ea =e na Qu man Qu Qa a2eunn awa aman ownaeonwaaan ewe =») 


; ! 
I-- SETTING ~~" Result Refarence Variable -71! 


Sees NIL S222 “RIRG. “Stee Se2 Ss? (Seen ess 7“- Expression 
! | 1 ! ! 
bos “LAST . 2293.4 i-=) <> S94 I 
{ 1 
ae wea ene2e = - IN = = 
I i 
i- NOT =] 
> eamuagawoeemaanasaeewa=a ge e_annananensaaas BsBQeumanmee @Qeeasa aa nm ee = apnea aeeaewe a ee 
! i 
i<= | Sree ON -EGS.CYCLE: <== Statement <1 
I ! 
= UNGEDS: - Se serss { 


The REDUCE statement is an efficient methoc of scanning character 
stringse The execution of a REDUCE statement does rot change any 
data» the reference variables are adjusted te point ata 
substring of the original string. The REDUCE statement scans 
from left to right if FIRST is specified and from right to left 
if LAST ts specified. After execution of the REDUCE statement 
the Object Reference Variable is left describing the substring of 
the orignal Object Reference Variable that meets the condition of 
the reduction. 


If the SETTING option is specified the Result Reference Variable 
will cescrite the substring of the original string that did not 
meet the condition of the reduction. 


If the condition of the reduction is = or <>» the Expression must 
be 2 charécter string. It should be noted that only the first 
three characters of the Expression are compared to the string» 
but the length will be used to test for end of strirg conditions. 
If the condition of the reduction is IN» the Expression must be a 
SET of characters (See SETS). Tf the ON EOQS_CYCLE cr £05 
condition is specified» Statement will be executed when the 
Length of Object Reference Variable has been reduced tc zero. 


sawe>» 
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After completion of Statement» control wilt be passed to the next 
Statement if the ON condition was EQS» or back ta the REDLTE 
Statement if tne CN condition was EQS_CYCLE untess an UNDO or 
RETURN was executed in the ON Statement. 


Examples 
DECLARE 
NUMERICS CHARACTER_SET \ 
ALPHAS CHARACTER_SET 
SOURCE_TEXT CHARACTERC72)> 
TEXT PEFERENCE CHARACTER> 
TOKEN REFERENCE CHARACTER; 


PROCEDURE NEXT_RECORD, 
READCSQURCE> SOURCE _TEXT D> 
REFER TEXT TO SQURCE_TEXT> 

END NEXTLURECORD> 


REDUCE TEXT UNTIL FIRST <> "™ ¥ 4 
ON EQS_CYCLE NEXT_RECORD: 
IF SUBSTRCTEXT»G»1) IN NUMERTICS THEN 


REDLCE TEXT SETTING TOKEN UNTIL FIRST NOT IN NUMERICS; * 
ELSE IF SUBSTRCTEXT»021) IN ALPHAS THEN 
REDUCE TEXT SETTING TOKEN UNTIL FIRST NOT IN ALPHAS=> y 4 


ELSE DO SPECIAL _CHARACTER; 
REFER TOKEN TQ SUBSTRCTEXT»C»rl1 )d» 
REFER TEXT TO SUBSTRCTEXT»1)> 
END SPECTAL_CHARACTERs 


Assume SOURCE_TEXT contains “* IF X = 999 THEN * and TEXT has been 
refered to SQURCE_TEXT. After execution of the REDUCE at line 


AA» TEXT witl describe “IF KX = 999 THEN "™. As the first 
character of TEXT is in the set ALPHA» the RENUCE at Line WC» 
Will be selected. After execution of this statement» TEXT will 


describe ™ X = 999 THEN * and TOKEN will describe “IF". 


f 
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REPEAT STATEMENT 


“e720 REPEAT err3- Statement List errr UNTIL tet" Expression c77"7 


Statement List witt be executed repetitively until Expression 
returns atrue result. The exit condition is tested at the end 
of each loops so Statement List will be executed at least once. 


Example: 
REPEAT 
DO_SOMETHINGs 
IF ENO _CONCITION 
THEN DONE *= TRUES 


UNTIL DONES 


fp SMT RENO TEST 
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con-- RETURN state en entn enn n et en nc ee nner ence erence renner en nee- 


l-~ Expression 71 


The RETURN statement allows an explicit return from a procedure. 
If the procedure is typed then Expression must he present’ and 


will be the value returned from the procedure. 


is not typed then the presence of Expression 
procedure. If the procedure is tyned a 
procedure 's tyoe is returned CO? if FIXED» 
null string 1 CHARACTER). 

Example? 


PROCECURE Ps 


RETURN> 


PROCEDURE Q FIXEDs 
RETURN Os 


END Q>3 


value 


If the procedure 


is an error. An 
implicit return is generated by the compiler at the end of every 


matching the 
BIT or RECORD» anda 


* 2225 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL. 
COMPUTER SYSTEMS GROUP J4/19/31 SDL2 SYNTAX 
SANTA BAREARA PLANT 5036 PLANT USAGE ONLY PoSs 2228 3519 


STOP STATEMENT 


‘a ae ae a STUP as=uwmoewnmana awe e an nee tn en nase Dees = o eo wee oe aa euwwoan neous ans aua ae 
! 1 
I-- Expression =! 


The STOP statement wilt generate a terminate communicate to the 

MCP to end the execution of the program. Expression 18 intenaed 

for use Cy compilers to communicate the number of syntax errers 
‘“ to the MCP. 


Example: 


STOP>s ; 
STOP SYNTAX_LERROR_COQUNT> 
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SWAP STATEMENT 
Les e Sr ease 2elLOChor “"S95= so2 Sere Se= Selector “sores =seees ==] 
The swap statement witt exchange the values of the two fields. 


Examples: 
BUF FER_1 %=% BUFFER_2;3 
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UNDO STATEMENT 


I-- Do Group Identifier 7] 


The UNDO statement transfers control to the end of the current DO 
group» or to the end of the DO group specified by Group 
Identifier. 


Example: 
DECLAFE 

I FIXED» 

A CARRAY_SIZE) FIXKEDs 


ITi= Q3 
DQ INIT_A FOREVERS 


IF I = ARRAY_SIZE THEN UNDO INIT_A3 
ACL)2= 13 
z= I # 13 
END INIT_As 
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tint Edhow Ge 
WHILE STATEMENT 


pce HELE. MPR) UR KOressron- “Ses “SRE eREne. (Terres teases sees === 


Statement will be executed repetitively while the Expression 
yields a true result. Expression is evaluated before each 
iteratione 


Exampte: 


DECLARE 
I FIXED» 
A CARRAY_SIZE) FIXED; 


Tes= 93 
WHILE I < ARRAY_SIZE 
Das . ' 
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WITH STATEMENT 
Loreen ae ee eae 1 
! ! 
Saees WiLL. 83 R Setector ose ster ess 


The type of Selector must be RECORD. 
new scope containing 


Selector. 


field of setector 


Within Statement a 
only its field name» without preceeding 
Selector expression.e 
Exagple: 
PCI).FITELON_1 *%=X> 
PCI).FIELD_2 2=Y>3 
PCI).FIELN_3 3=2Z3 


1s equivalent to: 


WITH PCI) DOs 
FIELD_i 2=X3 
FIELD_2 :=Y3 
FIELD_3 :=23 
ENDS 


WITH A» Be C 
is equivalent to: 
WITH A WITH B WITH C 


Statemert 


et ae Ge, 
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C The WITH Statement opens a 
the field ifdentifiers of the Fecord type of 


is selected by specifying 
it with 


the entire 


ho} 
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EXPRESSIONS 
Expressions are the rules for catculating a value using 


constants» variables» functions and operations. The conventional 


rules of teft to right evaluation and operator precedente are 
observed» as indicated by the syntax graphse 


Exoression 


aan @ Cat Factor eegwoanantaneanwwweeewnena es a =a OB BSSESenseae ewes ane a 2m ewnmrwee ee @ wa @ 


| . 1 
I-~- CAT -- Cat Factor le | 


The CAT operator will concatenate two fields together as _ cne 
field. The resulting type will be character if beth fields are 
characters for all other combinations it will be bit. 


Examples: 
BUFFER?= DECIMALCLINE_NUMBER»?4) CAT *2" CAT TEXT CAT %32%5 
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Cat Egctor 


=a we Or Factor gsgeaeoeaeaeewees SB Oe eawegeqgw wea as @Seanqg@ees @ae 2am 2 oe ea @ mnnm nw @ we a 


! i 
i =eSe¢- Oh Steerer ees Cat Eagetor <= 
{ ! 
C= “EXOR- oF] 
I 1 
I-- UNION 1 


The OR/EXOR operation performs a togical GR/EXOR of two aperancse 
UNION performs a set union of two operands. 


The result will always be of type bit. 


Example: 
DECLARE 
CALPHAS » 

NUMERICS> 

ALPHA_NUMERICS) CHARACTERS_SETs 
ALPHAS:= € "0" TQ "9" I> 
NUMERTCS3= £€ "A™ TO "T"%, "JI* TO "Re "S"™ THO *"Z" Is 
ALPHA_NUMERICS?= ALPHAS UNION NUMERICS; 
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Qr Eactor 

| Ct ee ne eee ween een enee { 


aaw And Factor meemwenmnawes a@2ewaeeete ea Se Bee etwe a w= we aeaeweanee a on eom ewe cow acw anna awe | 


| 1 
' ] 
Im INTERSECT =! 
The AND operation performs a togical AND of two operandsSe The 
INTERSECT operation performs a set intersection of two operands. 
The result will always be of type bit. 
Example: 
SET SUITS = CLUBS» DIAMONDS» HEARTS» SPADES? 
DECLARE 


CPLAYER_A» PLAYER_B» MATCHING_SUITS) SUITS 
MATCHING SUITS:= PLAYER_A INTERSECT PLAYER_B 
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Lore ter Ss or= y Cet Aes see eee ea a= eee 1 
] l { 

Senate Saw esee Relational. actor  ~-=ss=<s==<= Re gg ee ee 
i | { i 
i-- NOT =I PAS Heese And Factor ==] 


f-- <= <--] 
I j 
a2 3S ee] 
1 | 
fae PN eae 


The relational operators leave a result that has a vatue cf 1 if 
‘the condition is true or CG if the condition is false. The not 
operator will perform a togical not on one operand» and will 
always have a type of bite 


Example: 


A = B 
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Reléetional Factor 


v=" Add Factor  =c2*----- lela alatalatetata lata tateltateheiatetatetatatabatatabatalatatate alate 
i i 
[veces + osee-= Add Factor. -7! 


Ie-- = ome 


The + and °° operations oerform 24 bit» two's compliment 
arithmetic on two operands and result in a vatue of type FIXED. 


Example: 


A + 8B 
A- 8 
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The MOD * and / operators perform 24 bits» 
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Multiply Factor 


two's comrti 


4-5 
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5519 


ment 


arithmetic on two operands and result in avalue cf type FIXED. 


The result will ve an integer result with 


the resrainder »b 


The MOC operatio 


eing 
n is 


ignored for division (Cie. 97/4 = 2). 
division resulting in the integer value of the remainder Cieee 9 
MOD 4 =1). 
Example: 


A MOD E 
A -*« 8B 
A fs B 
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Multiply Eactor 


eee eS ee ee ee ee ee - Typed Procedure Cattl Sears aes amet wanaenaswanaae | 
| | 1 


[== = we( d*” ‘Standard Function “er s+-=- 1 
] { 
I=" Selector Stetesee 23S S= 22> ! 
1 1 
[== A4terat =SesAeeees se = SS J 


tes <° == ‘Expression =. 2). we 


i== Set. Constructor  “«<“9*ss+s+= = 


i 1 
Ie" Assignment Expression ws2""] 
l | 
i-- If Expression =e a ae ee ae oe I 
j ae j 
i=~ Case Express 10m. “= ss. ts "= +s 1 


I 
f=" ‘Get Frle Attribute  “-“eees= | 


The unary ™ operation will negate the value of an aperand. ° The 
unary + does not change the operand. 


See INPUT/OUTPUT Section for Get Fite Attribute. 
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Typed Procedure Call 


“== Procedure identifier “s<<"-"<9s=+-= a sala lad Sega 
I-~ (Parameter List) ==! 
The Typed Procedure Call is used to call a procedure that returns 


a value» enc to use that value in further Expression evaluation. 


Exarple: 
MAXIMUM = MAXCXsY)3 
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agisctor 


--- Variatle Identifier 


Field Selector 


su eaann wom ew ae Cc 


$aB. 
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J Cote thos em eter en comese I 

| 

J 

Ime" Field Selector 71 

1 

j-- Array Subscript sa 
== ‘Fretd-identitier “““-=<s<= 


“- Expression 


ma y one om a oe 


A Setector is an address generator that selects a sub~field of a 


variable. 


If én array is referenced with a subscript that is 
greater than or equal to the array bound a run time error wilt be 


generatede 


Example? 


RECORD Ri 
LEN 
OFFSET 


RECORD R2 
Ids €19) 
TYPE 


DECLARE 
A (10) 


FIXED» 
FIXED; 


Ri» 
FIXED> 


R2> 


ACI) .IDSCJI~LEN?S= QO» 


less than 0 or 
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ast Constructoc 


a { eweweeuwwooewawanzes Expression Le ee aan oenaunascnane a j asa 
l-- Expression =" TQ "=" expression “=! 


The Set Constructor expression is used to build sets from their 
members e The form "Expression TO Expression® wilt inctude alt 
members of the set bounded by the two axpressionse Tf the first 
expression iS greater than the second it denotes an empty sete 
Remember that set members are declared in deéscerding order. 


Example: 
DECLARE 
NUMERICS CHARACTER_SET» 
ALPHAS CHARACTER_SET> 


NUMERICS2= 80% T1%—» FT2A% , F3%, MAM, NHM, HWHM, NMWTM%y BHM, 
ALPHAS:= C7A"% TO *I%>, "J" TO "R*» "5" TQ "Z"]3 


Example: 
SET STATES = FINAL» MIDDLE» INITIAL? 


DECLARE 
STATE_SET STATES» 
STATE MEMBER OF STATES3 


STATE_SET 


3 INITIAL TO FINAL 13 
WHILE STATE 


[ 
IN STFATE_LSET COMPUTE_STATES 


"on is 


Aa11 
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Assignment Expression 


-_= © Address Gener ator anaae {= ew eee Expression Se ee soem | 


~The Assignment Exoression stores the value of Expression into 
Address Generator and leaves either the value Cif := is used) or 
the Address Generator Cif *2= is used) aS an operanc for further 
expression evaluations — 


Example: 
Is= -1;3 
DO FOREVER>s 
ACT?:= [#1l) s=I> 
IF I = ARRAY SIZE THEN UNDOS 
END > 


Return CA Bf 


; te} 
Geturr ( A 


_ 
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ie 


3. 


Expression OF 


ELSE 


Expression 7] 
The Case Exoression selects 
expressions to be evaluated. The value of 
used as an index into the list of Exores 
Expressions in the List the range is from 9 
of the Expression following CASE is grea 
elements in the list» the Expression fottow 
If Expression is out of range and the ELSE 

time error will be generated. 


an Express 


Exampte: 


Is= CASE X OF € Xtlve X#25 Xt3> 
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}<*-+¢- eu enue 


eesti EXPress10n == ses =4e> 
aaa seawaww onan eon aonamoan = | 
ion from a list of 

CASE Expression is 


sion. If there are N 
to Nm1ie If the value 
ter than the number of 
ing ELSE will be used. 
15 Not present» a run 


X+4 93 
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Ti Exoression 


IF ==" Expression ==" THEN 


>a euwtne neater woeoanenn woman oanaanwe 


ELSE: = 


The IF Expression is used to select an 


Example? 


A c= IF X<¥ THEN X ELSE Ys 
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Expression 


Expression 


Excression for evaltuatione 
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An If Expression 
Expression following 
address generatorse 


A Case Expression 


9e3- 


Setector 


If Expression 


D4/10/91 
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Case Expression 


Standard Function 


ONLY 


- hod 
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Typed Procedure Call 


1s considerad an address generator if 
THEN and the Exoression follcwing ELSE 


is considered to be an address gererator if 


both the 


are 


att 


elements of the case Expression list are address gereratorss. 


A Typed Procedure Call 


result type is reference. 


is considered an address generator if 


its 


leat | 
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STANDARD PROCEDURES and FUNCTIONS 


SDL2 provides a set of procedures and functions to perform 
contonty required operations. 
The Identifiers are not reserved and may be redecltlared» in which 


case the user declared name takes orecederce over the predefined 
One « 


ATANDARD FUNCTIONS 


Arcay Bound 


se ARRAY_BOUND -- (€ == Dynamic Array Variable =" J ote" 


Returns the number of elements in Dynamic Array Variable as a 
FIXED vaiue. 


Attribute Value 


“~ ATTRIBUTE_LVALUE = € = Attribute "= » =" Value 


Attribute may be any file attribute attowed in a Get/Put 
Attribute statement. Value must be a predefined tnemonic value 
for that attricute. This function returrs a fixed number” which 
is the MCP-asstqned number corresponding to the attribute vatue. 


Examples 
IF INFILE KIND = ATTRIBUTE_VALJECKIND»DISK) 
THEN DISPLAY "INPUT IS FROM DISK"; 


Base Register 


ores eter ewes w creer eecrse=  BASE_REGISTER ---"> shatalatatatetbehatetaatetetahetaetetad | 


Returns the absclute memory location of the base of the program's 
data space 4s a FIXED value. 


Se 
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Gioary 

pean BENARY:. re. of. ==: “EXD Sss10n,. == 2 KS testesseen esses oer= 


Returns a FIXED vatue wnich is the binary representation of 
Expression. Expression is assumed to be a character strings 


Bingry Seecch 


mw- BINARY_SEARCH «= € c= First Element -=" » == Key Field 


oe2 3g == Exordssiog: “" o . == “Elewents “= QD: ssa" a ata | 


First Element must be an Address Generator and have a type of 
RECORD. Key Fietd is a field of the RECORD type of First Element 
that is used tc compare against Expression. Elements 18 an 
expression whose value is used to give the bcund of the search. 
The element number Cthe First Element is 0) of the element wuhase 
Key Field is greater than Expression is returned. The Elements 
must be ordered. 


Bump 
te a a a oe BURP == Bugo: Varrable. == Sess <<Ses3S Hess sees S336 40s ons 
| 
I-- BY =" Expression <-! 
Bump Variatle must be an address generatore If Expression is 
present Expression is added to Bump Variable,» otherwise 1 is 
added to 8ump Variable. The resutt i3 stored into Bump variable 


and returned. (See atso BUMP jin Standard Procedures). 


Character Iavle 


a iatataiatatatate CHAR_TABLE 9 ---"---"-- C <2" String cot ) teeceeses-- 


string should be a quoted string of characters. CHAR_TABLE wilt 
return a Character set whose members include att characters 
specified in String. 


BURROUGHS CORPORATION 
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Procedure Identifier 


Identifier as a 
SPECIFICATION for 


wacom eens CODE_ADDRESS -- (€ -- 
Returns the code address of Procedure 
value. (See "¥SDL2 S*LANGUAGE PRODUCT 
format of a code address). 
Communicate Hith Gismno 

meowrnwm== COMMUNICATE_LWITH_GISMO em ¢€ =" 


Expression - 


$2 


fransfers control to GISMO passing Expression as a parameter 


‘returns a value. 


See 


"MCP PRODUCT SPECIFICATION® 


parameters and vatues returned). 
Gismo in Standard Procedures). 


(See 


also 


Communicate 


) 


y -2-4 


bit 
the 


and 


for formats of 


With 
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Convert 
= CONVERT @* © = Expression * + =" 8]7 se 228s es eee ese esos esse ae ) -!1 
1 | | ! 
[= FIED. { i= » -= Group =i 
I ! 
Y- CHARACTER =] 


Expesssion 1s converted to the type specified» according to these 
rules: 

3IT to FIXED: Up to 24 of the rightmost bits are converted. 
FIXED to BIT: The result is SIT €24). 


CHARACTER to FIXED: Leading Olanks and sign are allowed. Up to 
seven of the rigntmost characters are converted. 


FIXED to CHARACTER? The result is eight characterse The sign and 
any leading zeros are not supressed. 


BIT to CHARACTER? The radix = 2 ** Group. 
CHARACTER to BITS: The radix = 2 ** Group. 
Group is only used with BIT tao CHARACTER or CHARACTER to BIT 
conversions e It specifies the number of bits in the bit string 
which correspond to a character inthe character string. The 


default Group is 4& Chexadecimal). 


For example: 


CONVERT C= 72581"%» FIXED) = s/250.1 
CONVERT CalC39752d5 CHARACTER 4) = "LE 4" 
CONVERT Ca€i)1101L11a» FIXED) = 27 

CONVERT C"L32"» BIT» 2) = 3(2)132a 
CONVEFT C*Li2"» BITs 4) = 3(4)132a 
CONVERT €"2"» BIT) = 3(4)2a 
CONVERT Cr4,»5 BIT) = 3(4)FFFFFCa 
CONVERT C*4» CHARACTER) = "-9090094" 
CONYERT CS0A0G» CHARACTER) = "0A0™ 
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Date Address 
[Seas = CATALADDRESS “= € =" Address Generatcr -“~ ) serreen|{ 


Returns the base relative 
value. 


Data Length 


DATA_LENGTH 
Returns the bit Length of 


Data Iype 


DATA_LTYPE 


Returns the type bits of 
PROCUCT SPECIFICATION’). 


Date 


Returns a string containing the current date. 


is CMONTHse CHARACTER). 


address of Address Generator as a FIXED 


C = Expression -_ = j re ee) m_- 2 mom aww | 


Expression as a FIXED vatue. 


C 7 btpressien. @= 9. Sass=es eneesss== 1 
Expressione (See '"SDL2 S=LANGUAGE 
smaaae wa naeaees as eae ae aewen aw ee ewer ew cama conoaa= | 
i 
w-- JULIAN -ee- 6 cere BIT -e---- e-- ) +1 
! I ] | 
1-- MONTH ---1 Ie- DIGIT ----- I 
! I ] 1 
pee. YEAR == le~ CHARACTER 1 
I 1 
I-- DAY ----- I 


Tne default format 


576 
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Decimal 

w-- DECIMAL == € == Expression -* » =" \Lergth -°7 ) cere 
Length is an Expression. Returns a cnaracter string of Length 


characters containing the decimai representation of Expression. 


Qecrement 
oes: DECREMENT == Decrenegt Variapte: “s<="siessssiess<s<ssseses "o> 
! i 
I“- BY 7 Expression <1 
Decrement Variable must be an Address Generator. Expression (1 


if BY Expression is omitted) is subtracted from Oecrement 
Variable and tne result is stored into Decrement Variable and 
also returned. CSee also Decrement in Stancdcara Procedures). 


S27 
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Dispatch 
ous: (DESPAIGH. @F5 “E =e PL Expressidn: ==. # ~STeesSs=<s<= aa oe at eee 
> een ae aan wanwoaaenwan ane Icd Address = ) asa noe mam seamen eae | 


PC Expression shoutd generate avatue containing the Port = and 
Channel « {See "GISMOQ PRODUCT SPECIFICATION' for tayout of the 
Port and Channel information). 


I00 Address should be an Exprassion whose value is the absolute 
address of the I/G descriptor to he dispatchec. {See 'MCP 
PRODUCT SPECIIFICATICN!® for layout of an I/O descrirfrtor). 


wee ce eee esecene=  DYNAMIC_MEMORY_BASE 0 wettest cern n nnn sec cn nnn e=] 


Returns the offset from the Sase register of the beginning of 
dynamic memory as a FIXED vatue. 


Eetch Communicate Message Pointer 
wa eeseeeens FETCH _COMMUNICATE_MSG_PTR crete" ===- we eee e ee coseen= ==--| 


Returns RSeREINSTATE_MSG_PTR. (See 'MCP PRODUCT SPECIFICATION? 
for tayout of the Run Structur? and meanings of the = values 
returned). 


a= 0 
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ma rect ccen cence neene- HEX_SEQUENCE_NIMBER 9 sete re enee tense necenene=! 


Returns a 32 bit vatue containing the sequence number of the 
current Line in hex digits. 


Length 
Sees S Se fan (bENGT cee CS Eko pesegicn. “ -). RSS e ses san ee 1 
Returns a FIXED value containing the length of Expression. If 


the type of Expression is characters the value wilt be the number 
of characters» otherwise it wilt be the number of bits. 


Ligit Register 


a oee en sees ce ren eceee- ce- LIMIT_LREGISTER -eer crete rrcen---- eccrren- 


Returns a FIXED vatue containing the base to timit size in bits 
of the programe 


Name of Day 


aswawoewanean aa wm aw 2 mm NAME_OF_DAY a aaa a a aia a calle na nneticn | 


Returns a nineetcharacter string containing the name of the day of 
the weeke 


Null 


salatalataiatatatetatatatehe eters ten NULL met ten cnn n cere nncn cs ece cee ennneneses| 


Returns a nutl character string. (Not e: this car be used as a 
selector). 


song 
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Gdt Input Present 

o2c-- wewesesrwesres=s ODT_LINPUT_PRESENT core cececoernesnnnecceaca=| 


Returns 4 true value if there are any outstanding messages fram 
an operator accept. CSee "AX" command in the "MCP PROODLCT 
SPECIFICATION'). 


Qverlay 
SA at emet see “OVERLAY Se x oe- “EXOTSESS 100 = «>. Seer ee eee | 


See "MCP PRODUCT SPECIFICATION' for more informaticn. (For mCP 
use only). 


Processor Iiae 
oem er oneness werewrrn= PROCESSOR_TIME crest er et ern ese eccsces woreee 


Returns a FIXED value containing tne amount of processor’ time 
that has been allocated to this program in tenths of a seccnd. 


Program Switches 


ecececne-- woe ecen--5 PROGRAM_SHITCHES ts etee cre ner nr en cence een nen] 


lem € = Expression = ) =! 


Returns a 40 bit value containing the Program Switches» untess 
Expression is specifiece If Expression is specified» it must 
evaluate to a value tetween G and 9» and the functicn wilt return 
a 4 bit value containing that program Switche 


Reas Lock 


eme= READ_LOCK "= € 2 Selector *- » == Expression -7 ) se! 


*5=10 
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Expression is stored into Selector» and the original value=  oaf 
Selector js returned. 


se Jag | 
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search Linked List 


e=~ SEARCUSLINKED-LIST “= -€ = “first Element. << -. ““ree8es<- -> 
22a NOY Sees. = Tee EROTSSSION: “. 2 ors Link-sss) 2). =| 

1 i 

FSS 2: <4 

! 1 

[aa a 

I 1 

las > aay 

I | 

I=~ <= eel 

1 | 

tes Sa Fe 


First Element must be an Address Generator with a type of RECORD. 
Key and Link must De fields within the RECORD type cf the First 


Element. A search is performed starting at First Element until 
either the relation is true or a tink of all Fs is enccuntered. 
The selected element is returned, if no match was found an 


address generator with a data address of ali F's is returned. 


Exampte: 


RECORD INFO 


BACK_LINK BITC24)> 
FORWAROLLINK BITC24)> 
Td BITC20)» 
DATA BIFC1090 ds 


DECLARE FIRST INFO» 
CURRENT REFERENCE INFO? 


REFER CURRENT TO SEARCH _LINKED_LIST CFIRST» ID = PATTERN» FORWARD_LULINK) 


IF CATA_LACDRESS CCURRENT) = OFFFFFFa 
THEN DISPLAY “PATTERN NOT FOUND"™S 
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search SDL Stacks 


se= SEARCH _SDL.STACKS =~ © =— Lower “<< ~~ == Upper == 


Lower must te an Expression whose value is the kase relative 
address of é structure. Upper must be an Expression whose value 
is the base relative address of the end of the Structure. The 
base relative address of a descriptor that points within the 
bounds of Lower and Upper 1s returned. If no descriptor is found 
0 is returned. 


aeaarch Serial List 


wee SEARCHISERTAL LIST =-- € -~- First Element "se etetewecee" 


> swe ween se awa ne nwa na se eowesee =  _ aaene Expression i) , maenenwe 


I-- <0 mH d 
i 
P-- > =] 
i ! 
I-- <= ==] 
i : 
I=" >= oe 
>pee<- Elements "7 ) saee------ Omen mann ence sees scenes nces cece nnn] 


First Element must he an Address Generator and if Key is used 
must be of type RECORD. Key must be fielc of the RECORD type of 
the First Element. If key is not used the complete element is 
usede Elements is an expression describing the tound af the 
searche A serial search is performed starting at First Element 
until either the relation is true or the end of the tabte is 
encountered. The element number CFirst Element is 0) of the 
selected element is returned. If no match was found Elerents is 
returned. 


ee a 
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Example: 


RECORD JOS_INFC 
JOB_NO  BITC15) 
NAME CHARACTER(39) 
PRIORITY BITC4)3 
CECLARE JOB{CMAX_JOBS) JOS_INFO> 
I FIXEDS 


I t= SEARCH_SERTAL_LIST CJO8CO)» JOO_LNG = THIS_JCB» MAX_JOBS)s 


IF I = MAX_JOBS 
THEN DISPLAY “JOB NOT FOUND"; 
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2eguence Number 

ween one cm eceecee SEQUENCE_NUMBER sett tet een ns eters sen accesees= 


Returns an 8 character string containing the vatue of the 
sequence nuaber of the current source line. 


aubbit 


eee -SUSBIT oe" £. - Expression, "= #° == -Ofiset ‘cosets cea men ee > 


Expression is assumed to be of type BIT.~ Returns a subfield of 
the value of Expression starting at Offset bits for Length Bits. 
If Length is not present the tlength is calculated to be the 
remaining bits. The type will atways be BIT. 


CSUBBIT may be used as an Address Generator» in Which case 
Expression must be an Address Generator). 


ag 
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aubstr 

men: SUSSTR” Sr 9 “== JExpression: = #2 = Qtiset ssss=s9sess4= > 


> sana anwaewwan a ee ee aenansereoaa= ») seen e ewes aeecan see sent owas om eam ae | 


1 I 
je «¢. “== Length. = 


Expression is assumed to be of type CHARACTER. Returns a 
subfield of the value of Expression starting at Offset characters | 
for Length characters. If Length is not present the tength is. 
calculated to be the remaining cnaracterse Tne type will atways 


be CHARACTER. 


CSUBSTR may be used as an Address Generator» in which case 
Expression must be an Address Generator ). 


dest 
Sas Se 2a ee ae = SSS eNees NEG SSS Ste se seers ses sees SS ees ee eSee ==] 
For compiler and interpreter debugging only. (See also. Standard 
Procedures). 
Jins 
Sre= OMe Seen es SSS Se eS Sea eS ea Ss Ses eee e eo Ses SSS ss 5S Sse es eee ! 
J ! 
pes -ee= COUNTER =">=" » eeece BIT sesesess-= be | 
® 1 ) 1 
I- MILITARY -1 i= .DIGitT <==<== I 
! : 1 i I 
I- CIVILIAN 1 I- CHARACTER -1 


Returns a string containing the current time of daye The default 
format is CCIVILIAN» CHARACTER). 
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Returns a FIXED vatue with 
REGISTER. 


Jogays Date 


ji dew caceanes eeneeee= TODAYS_DATE 


the current 


SDL2 SYNTAX 
PeSe 2228 7519 


setting of the TIME 


Returns a 17 character string contatning the date 


of this program. 


The format of the string is: 


RECGRD TODAYS_DATE_F ORM 


MONTH 
SLASH_1 
DAY 
SLASH_2 
YEAR 
FILLER 
HOUR 
COLON_1 
MINUTE 
FILLER 
AM_PM 


CHARACTERC 2)» 
CHARACTERC1I)> 
CHARACTERC2)> 
CHARACTERC1)> 
CHARACTER C2)» 
CHARACTERC 1)» 
CHARAC TERC2)> 
CHARACTERC1I}>» 
CHARACTERC2)> 
CHARACTERC1)>» 
CHARACTEFC2)5 


DWT RRR HE RW HK BE Te 


of compilation 


91 TO 12 
LITERALLY 
G1 TO 31 
LITERALLY 
GC TO 99 
LITERALLY 
01 TO 12 
LITERALLY 
0g TO 59 
LITERALLY 
LITERALLY 


"AM™ OR 


eee G 
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bait 

me WALT terete cent rene nnn nn en nnn we rn rene nnn enene-- ( cereeee- > 


Im~- £7 Stare Position 7] =.) 


“- TIMELTENTHS =-- € -- Tenths om ) tesceaecccccn---- 
oe EOTLINPUTLPRESENT -SSeeeeoseSe reset seeeeeeese ose 
ee DELT0 COMPLETE. “saesse--=2=<= vasseeSSeser ess seeee 
“- READ_OK <-> (> File name -) so mtenecescceceenene- 


Il- € = Member - ) =] ] 


WRITEWUN “28 C2 Fate Vane 22 See re eree ses aSe as oe I 


I> € = Member *- ) 73 { 


ee ee ee ee ee ee ee ee ee ee 
ae 


Q@ WRITE_OCCURRED -"- (= File name “) eteeerreee j 


The program witt be susoended until one of the wait events 


becomes true. The value returned is the orcinal pecsitior of the 
event in the wait event list Cfirst is 0). Start Fostion can be 
used to specify which event in the list to test firste The 


default is to start at event 0. 


If WHEN Expression is present the event wilt be ircluded in the 
wait list only if expression yields atrue result» however a null 
event will be inserted in the List to maintain the ordinal 
position of the events. 


If TIME_TENTHS is specified» it must De the first event in the 
Liste 


gi Te leo 
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Extended Arithnetics 


oeece- X¥_ADD ccee- € == Operand_l -- » =". OQperand_2 -~ 


f-- X_MOD <1 
X_ADD adds Operand_1 to Operand_2 and returns the result as type 
Dite 


X_SUB subtracts Operand_2 from Operand_1 and returns the result 
as type bite 


X_MUL multiplies Operand_1 by Operand_2 and returns the result as 
type bit. 


X_DIV divides Operanc_1i by Operand_2 and returns the result as 
type bit. 


X_M0D modulo divides Operand_l by Operand_2 ard returns the 
result as type bit. 


ie 


BURROUGHS CCRPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP O4/190/81 SOL2 SYNTAX 


SANTA BARBARA PLANT SoBe PLANT USAGE ONLY PeS- 2228 3519 


STANDARD PROCEDURES 


Bune 
mae awananena SUMP —_= Bump Variable sn2ainae oe oe sae enews scaanas= |] 
1 1 
f=" 8Y -~" Expression: 771 
Bump Variable must be an address generator. If Expression is 


present Exoression is added to Bump Variabler otherwise 1 is 
added to Bump Variable. The result 15 storec into Bump Variable. 
(See also 38UMP in Standard Expressions). 


See Se wa we CALL ae ¢ = = Expression = a ) aeuwuagwe eee ee ww - ee ee j 
Perforas an indirect call. Expression must generate a 32 bit 


value containing the code address to be called (See *SDL2 
S*LANGUAGE PRODUCT SPECIFICATION’® for format of a code address). 


Chargcter Eqil 


wem CHARACTER FILL <= €-*= Destination -~ » =" Expression “= ) “---- I 


Destination must be an Address Generator. The nigh order & bits 
Cfirst byte) of Expression will be used to fili Destination. 


Communicate 


cecrsm= COMMUNICATE <= € == Expression 72) )  teeeeeneereren--] 


Transfers control to the MCP passing Exoression as a parameter. 
(See "MCP PRODUCT SPECIFICATION’® for formats of parameters ina 
communicate). 


BURRGUGHS CCRPORATION 
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Communicate Hith Gismo 


COMMUNICATE_WITH_GISMO -- € -=- 


Transfers control to GISMO passing 


CSee "MCP PRODUCT SPECIFICATION® for 


Fxpression as a 
formats of parameters). 


ee 
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Expression "7 


‘CSee also Communicate With Gismo in Standard Functions). 


Compile Carg Lofoermation 


COMPILE_CARD_LINFOQ --9-= (- == 


Destination must be an Address Generator. 
program is returned into Destination 


RECORD COMPILE_CARD_INFO_F ORM 


Destination =" J) 


Information about 
in the following format: 


OBJECT NAME CHARACTERC30)>» 
EXECUTE TYPE CHARACTERC2) > 

Z01 = execute 

292 = compile and goa 

203 = compile for syntax 

404 = compite to tibrary 

205 = compite and save 

206 = go part of compite and goa 

%Z07 = go part of compile and save 


COMPILER PACK IDENTIFIER 
INTERPRETER NAME . 
INTRINSIC NAME 

PRIORITY 

SESSTON NUMBER 

JOB NUMBER 

COMPILER MFID AND FIO 
CHARGE NUMBER 

FILLER 

DATE AND TIME COMPILED 
FILLER 

USER CODE 

PASS KORD 

PARENT JOB NUMBER 
PAPENT QUEUE IDENTIFIER 
LOG SPO 


CHARACTERCT1I0)>» 
CHARACTERC30)> 
CHARACTERCiC)>» 
CHARACTERC2)- 
CHARACTERCO)» 
CHARACTER(S)» 
CHARACTERC20)>» 
CHARACTERT7 D>» 
CHARACTERCIi)D» 
BITC36)> 
BITC4)>» 
CHARACTERC10)> 
CHARACTERC1C)> 
CHARACTERT4 D> 
CHARACTERC20)> 
CHARACTERC1)> 


2228 3519 


parameter. 


the 


5-24 


OURROUGHS CCRPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP O04710/351 SOL2 SYNTAX 
SANTA BAREARA PLANT S232 PLANT USAGE ONLY PeSe 2228 3519 


Datacoma Initiate 1/0 


eee: DC: INITIATE.10. =SF= 4. == Port “=~ » == Channet "=" » > 
zere “TO Deseriptor Aedoress. OCS .}) Sets seer nest sSe = Parada aaa as 
I0 Descriptor Address must be tne baserrelative adcress of an I0 


descriptor which wittl be initiated on the specified Port and 
Channelej (C€See "MCP PRODUCT SPECIFICATION' for more information). 


Decrement 
w=" DECREMENT -*= Decrement “Var iat le “99 cA99 Sess en “=s< Se oa 
: 1 i 
i-- BY =~" Expression 1 
Decrement Variable must be an Address Generator. Expression -€1 
if BY Expression is omitted) 18S subtracted from Decrement 
Variable and the result is stored into Decrement Variable. CSee 


also Decrement in Standard Functions). 


Disable Interrupt 


Te) 


eccreccns- Sacicmesess= DISABLE_LINTERRUPTS. “SreesSseaaesannsnesoonns>) 


All interrupts will be disabled until an ENABLE_LINTERRUPTS is 
executede (For MCP use only). 


alle letetatatattetetateiaetate acccer--- DUMP oo sat owen nr en cere ce nseew een ece- <---] 


Generates a memory dump of the program. 


hoee 
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Enable Interrupts 


lw 


sss ee a SS ae ENABLE_INTERRUPT SS sewes teste cess seesseessesce=| 
If interrupts are disabted they wilt be enabled ard normal 
processing of interrupts will continue. TFor MCP use onty). 


Error Communicate 


ene EFRGRUCOMMUNICATE "7" € -" Error Index = J) seeneserese=| 


Transfers control to the MCP» using Error Index ta select the 
appropriate run"time error message. Error Index must be a fixed 
constante 


Fetch 
, ‘ 
--- FETCH -- ¢ -- IO Reference -- +» -- Port Channet --"--- > 
Ree Se as eee eS  -S HeEsult Geseriptor if. “jee seeessere= =| 


I0 Reference must be an Expression whose vatue is’ the reference 
address of an 1/0 descriptor. Port Channel must be an Address 
Generator. Result Descriptor must be an Address Gererator. 


The Standard Procedure FETCH fetches the result. of an 1/0 
operation. If there is 4 high priority interrupt» then that 
interrupt will be reported. Orherwise»s if I0 Reference is 
nonzero then onty an interrupt on an I/0 descrigftor with that 
reference address will be reported. If not found then the first 
interrupt to occur wilt be reportede The port and channel number 
Will be stored jinto Port Channel and the accress of the result 
descriptor wilt be stored into Result Descriptor. 


(See "MCP PRODUCT SPECIFICATION for sore information on 
interrupts and I/0 descriptors). 


oes. 
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aialatetatatatetatetatetatatatetatatatatatatets FREEZE_PROGRAM  ~aet tere rte nce n nnn enenn=H=] 


This procedure prevents the program from being moved to a 
different memory location» or from being rolled out of memory. 


Halt 
ee re HALT == <<. =* Expression << =>) “sss6<ees=6<se=e <=S =< =| 
The machine will hatt with the low order 24 bits of Expression 


displayed. (See "'SDL2 StLANGUAGE PRODUCT SPECIFICATION’ for more 
information). 


Hardware Monitor 
<< ms" HAROWARE_MONITOR w= € fm Expression 7 J stserereni 


See '"SDOL2 S“LANGUAGE PRODUCT SPECIFICATION' and "81900 PROCESSOR 
PRGCUCT SPECIFICATION' for more information. 


Message Count 


mwe- 6 6©MESSAGE_COUNT == (€ = File Name = » = Destiration = ) <*--- 1 
File Name must be the name of a queue filer and Destination must 
te an Address Generator. The number of messages in the queue 
widl be returned as a fixed number into Oestination. If File 


Name refers to queue file famity» an array of values» one for 
each family member» will be returned into Destination. 
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Refer Address 


ewe= REFER_ADCRESS == € ** Ref Variable -- » ==" Expression == ) =| 
Ref VYariable must be a Reference or Pointer Variablee Expression 


will be stored into tne address part of the descriptor for fef 
Variable. 


we" REFER_SOUND -- € =" Ref Array == » =" Expression "= J e227] 
Ref Array must te a paged array that has not been referenced» or 


a reference array. Expression wilt be stored into the array 
bound part of the descriptor for Ref Array. 


Refer Length 


oom REFEROLENGIO == ( -- Ref Variable -" » =" Expression -" ) =! 
Ref Variable must be a Reference variable that 1s not of type 


RECORD. Expression will te stored into the lergth part of the 
descriptor for Pef Yariable. 


Refer Page Shift 


“\- REFER_PAGE_SHIFT ~- € == Ref Array ~-" » =" Expression *= ) =] 
Ref Array must be a paged array that has not beer referenced. 


Expression will be stored into the page shift part of the 
descriptor for Ref array. 


Refer Iype 


wre REFER_L TYPE ~~ (€ =" Ref Variable - - ~~ Expression “= 2) ==] 


Ref Variable nust be a reference variadle that is not of type 
RECORD. Expression witt be stored into the tyre part of the 
descriptor for Ref Variable. 
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Reverse siore 


es" REVEPRSE._STGRE =< { eres Selector **.*7.* » =" Expression 
Multiple store operations will be generated» evaiuated from 
left to right. 
Example: 
REVERSE_LSTORECA+B»C 1)? 


is the same as 


Sle iatatel. 


test 

a aeneesaewewawrwvaeananvwanaane ss @ TEST suse es waa enewaes Bae nwa na aneumawannans aa 
For compiler and interpreter debugging only. €See also Standard 
Functions). 
Thay Progran 

SSS S= 2S SSeS sS< 2 Ses THAW PROGRAM “See eee e Ss -- SS =S <= = <Ssee 5 ! 


This procedure unfreezes the program» and allows it to be moved 


or rolled out of memory. It does not force the program to 


rolled out. 


be 
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Icanslate 


2-2 TRANSLATE “— € == Source ** » == Source Size ** » == JTable == » > 


>=<= Destination Size m= » =e oe ae Dest ination =a oe ow oe oe on ) evesence =] 


source and Destination must be Address Generators. Source 5i12e-p 
Tabie and Destination Size are Expressions. Source is assumed to 
consist of items of Source Size Cin bits). Table ard Destination 
are assumed to consist of ttems af Destination Size Cin bits). 
Each item in Source 18 used as a subscript into JTable to obtain 
an item which is placed into Destination in the same ordinal 
position as the sources 


Zip 


ee ae ae a LLP: (S=see eee SS eH EXpression -“s“="*<+<-e*~“ eee i in ta ===] 


The Zip statement allows tne program-to pass control instructicns 
to the MCP. Expression shoutd generate a character string whose 
value is a valid MCP control command as documented in "MCP 
OPERATOPS MANUAL*®. 


eri 
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FILE DECLARATIONS 


[ < wert eww wate ewer aweras ee . Sas es eS Beem e 22a = ese cowmonne = | 


i 
eos FILE com-- File Name sosrresee cece cccecsencene- were ecereserern-- 


w= € en" File Attrioute --- ) =---- 


The FILE declaration will generate an FPB with the defautt file 
attributes modified by the attribute list. The File Names. when 


used in an Expressions will vield its FP8 number Cthe first file 
declared wilt be 0). 


BURROUGHS CORPORATION 
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File Attributes 


The following List of file 
applicable for file deciarations. 


attributes are these that are 


Where an attribute requires a Boolean value» the value must he 
TRUE or FALSE. Where an attribute requires an integer or strings 


the value must be a constant. 
mnemonic vatues wilt also attow an integer constart. 


ALt Attributes which expect 
However» 


caution should te used whenever subdstituting an irteger for a 


mnemonics Since the integer 


values in the File Declaration 


statement are different from those in the Get/Put Attribute 


Sstatementse 


"- ACCESSMODE <=----- 
-- AREALENGTH “=*----- 
w= AREAS -eeserceseee- 
es AUDITED con--2----- 
“= BACKUPKINO -<-"--- 


BACKUPPERMITTED =~ 


BLOCKSIZE <-c--r--- 


BLOCKSTRUCTURE == 


BUFFERS ~"--=- ---- 


CENSETY. secre o> 


mec es mi eee ee eee em ee et aes ee ee ee cm em coe Go Ge 


Sees SERTAL, “oS Stesseeses=- eee s=] 

] | 1 
I-- RANCOM -=1 j 
I 
= INteGer: “SHS sS Sere Sees = | 
! 

-=— Integer Sasser" Se s9o- 85 = 1 

1 
-- Boolean s**t tsetse eecsHe e= =] 
| 
= ese OE al a | 


{ 

I-- TAPE --1 

{ 1 

J-- EITHER --1 i 

1 

a---- DONTCARE sero eneeennn----] 
I-- DONTBACKUP --! 


I-~- MUSTBACKUP =-1. 


o= “Integer <<-=<<55 SS a ae oe Se J 
| 

<= PIALD SSS es=Seeeson see = | 
1 j i 
f-- VARIABLE --! | 

! 

=~ Integer <-<SSes<< 2S—<S === = ===) 
| 

== a BPI2Z200 see etereseeowecean | 


im@ BPP596 s=] 
ie=. EBPLISO0° “4 


I-- BPIi6b00 <-<-] 
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<<, mem es eee ce ee etn tied ge ees a tn ee oe ee ee ee tet et ene Sas te tet ees ee Sem ee om coms ice a 
A 
i] 


DEPENDENTSPECS --- 


DIRECTION 


EX TEND 


EXTIMOUDE “Sse sse<= 


FAMILYINDEX 


FILEKIND 


FLEXIBLE 
FOOTING <“s<e=<-2-- 
FRAMESIZE <“S=]2esr= 
HOSTNAME. “oso re=-= = 


IN TNAME 


04/19/31 
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f<= 8PI6250 <@="1 1 
! 


== BoOOUEaAn: Reese ss see Ses See = I 
1 

aa FORWARD sacs ocanawenaon= | 
{ \ | 
I-- REVERSE =! ! 

] 

cfer== Boolean e**2°°°"- Sse =] 
1 

woner FRCDIC weeeee" <= ee aoa | 
i { I 
i=s= ASCII]. ===] ! 

| { 1 
ies (BEL. “ss=s< ! ] 

1 | { 
{[-- BINARY -=--1I H 

1 

“= ‘Integer <<“ “"-«--- aaa a a a ! 
J 

sSe8. DATA. -<S528 32202342 5=ss>=< i 
{ | | 
ie= CORE =<-e=<<5 | | 

j j { 
I-- INTRINSIC <==] ] 

| I 1 
Im- INTERPRETER =] “| 

{ i | 
JIn-- PSEUCO_CARD <i I 

I 

-- Boolean were7-7 sees ocns sae j 
I 

==. Integer. See s4sre=- 2S <s= lia | 
{ 

=< “InN btqcr “Ses 4 2-2-2" * ae a ee 1 
| 

==. Stcing “Storrs -seeeese4= ] 
] 

== String -SSers<Sss esses" som |{ 


E~4 
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v 
I 
b-- KIND  sseeeeeason-- = sees DATARECORDER c-o---------- 
lo= DISK cme eeeneesccrece-- I 
Pa QDT terre cee encnenen--- I 
I I--  PAPERPUNCH -2---"--"--- i 
I--  PAPERREADER =a"-c+---- =I 
1 [o- PORT 0 tee eeeesncccencee= i 
1 In- PRINTER -ae----- siakeaneete | 
I==) PUNCH sae wen encore eneen| 
I f=-  PUNCH8Q ster m ne nnnnn=] 
| I=- PUNCH96 cne--=- wccene=n| 
i [== QUEUE tre ntneenenenn--- I 
I-- READER sor eeenene---- a | 
i Im-  READERSORTER -<"-------- 
I I-- READER80  =s2rnssereeee- 
I-- READERIG 9 cornewecrese== 
! lo" REMOTE sccensneeseenee- 
lo-- TAPE caeersocee== ereeeel 
i f=- TAPECASSETTE -w=--"-<--- 
I=) TAPEPE tee rewesennnnnnn] 
! [== TAPE7 serncenesnce=- ---1 
i 
v 


oe ee ee ee ee ee es oe 
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ce eet on ee ome ome ee em ee ne ee ee ie es i Oe a 
‘ 
i) 


LINEFORMAT se7ee"= 


LOWERS 
MA XREC 
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Defauitt Eile Attributes 


This section Lists the default values which are used by SDL2 when 
an attribute is not Specificied in a File Declaraticn statement. 


SERTAL 


ACCESSMODE = 
AREALENGTH = tlocksize * 109 
AREAS = 25 . 


BACKUPPERMITTED = TRUE 


I 


BLOCKSIZE = maxrecsize 
BLFFERS = 1 


FRAMESIZE = 8 


INVALID_CHARACTERS = 2 Cnontstandard attribute) 
KIND = DISK 
MAXRECSIZE = 80 or 96 if card device» 

132 if printer device» 


180 in all other cases 


MYUSE = IN if input cnly device,» 
OUT if output onty devices 
IQ in alt other cases 


NEWFILE = TRUE if printer device» 
FALSE in alt other cases 


TITLE = internal file name 
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SWITCH FILE DECLARATION 


= SWLICH FILE ===<> -- Switch Fite Name ~"*7 € w=" File Name -"* ) 


A switch fite declaration aitlows a group of files to be 
selectively accessed. A switch file name with a subscript may be 
used anywhere that a file name is allowed» excent within a switch 
file declaration. The files are numbered from 0 ta ni» where n 
is the number of files in the switch fite list. If any of the 
files have a KIND of PURT or REMOTE» then all the files in the 
list must be of kind PORT or REMOTE. 


Example: 


FILE USER CKIND=DISK)> 
USER2 CKIND=DISK)>» 
USER3 CKIND=DISK)> 


SWITCH_FILE USER_FILECUSER1> USER2» USER3)> z 


DECLARE 
USER FIXEDs 


OPEN USER_LFILECUSER)s; 


WRITE USER_FILECUSER) (CBUFFER)3 
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INEVIZOUTPUT STATEMENTS 


Accept 


eeesrer= ACCEPT oseceene-"-) Destination rte r tr eree rec cer seer nn=] 


Destination must be an Address Generator. The program wilt he 
suspended until the operator responds with an AX sessage on the 
ODT. Tne message entered by the operator witt be read =tinto 


Destinations and then program execution will be resumed. 


Disoléy | 


woce- DISPLAY --"" Expression stot cccr ttn nner eseereeen=- ateleatate ~1 
] 
Iv" 5 =" CRUNCHED <=--1 


Expression wilt be printed on the ODT. If *» CRUNCHED®" is 
specified» the MCP wittl delete ali trailing blanks and substitute 
one btank for each occurrence of multipte embedded blanks in 
Expression. 


Qpen 2 


eee QPEN: == €2 be Name “SS 3 esses sere Ss 6 eee Ses ese ee = aa a= ae > 
1 j 
fe" (Subport] --1] 


> =a = a oe oe ewes @eaeuwrnwaeawaaew = eee ee a menue anmewaacaeauwwnoua @ aeeneaeeaweawoe’ 


I-- RETURN -~f dIs* ON_BEHALF_OF -- Expression -7!1 


I< =— Saw wa as a aqeqeweuwnwe ee . @ @Mewnawes @& BS eee we Se seegure wemeeaesanewnwae awn ananaae | 


I- 3 = ON =2e- FILE_MISSING eeccen ener cree nen nnee Statement ~~ 


l-~ FILE_LOCKED ---------- ietaeiatatate --1 
! 
f-- EXCEPTION s--92e--- enecese econe- 
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The Open statement allows the programmer to explicitly open a 
file» and to handle error conditions. 


Exampte? 


Close 


--- CLOSE =" Fite Name 


OPEN SOURCE; 


ON FILE_MISSING SOQURCELPRESENT 2= FALSES 


Lo" REMOVE “== 
I-- CRUNCH -- 
I-- NOLREWIND 


t-- OVERRIDE 


CSubpnport] <-"! 


SECURITY =<! 


t= IF. NUL-CLOUSED “<= 24" i 


fe= ROLLOUT 


The Close statement allows 
file and specify how it is to be disposed. 


Examples 


CLOSE SQURCE PURGE> 
CLOSE NEWSOURCE LOCK, 


a programmer to explicitly close a 


REMOVEs 
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i-- (Remote Key] -7-7] 
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Te- CQueue Member] -~i 
{ Jj 
Es= CS apport: S64. ++= { 
> ene_ ea eemeae get & ee @ meweeee sg @ Oe aeaeageeupb eaaw & a enmees Geeuwewaew ae w 
i . ! 
fem WITH RESULT_MASK =" Mask =~} 
| <en sense ae oe es ee | -— a a 2 wes ewes Ssmean aus wave ea @ 
H 
>a e248 egmeeewea eS et @e@ aeeesnemaet awa aaeens ee eo 2s ww me eSeeeeenaeaae @& mm -: 
] 
le > ON eee LUE 24s .s 2e6es ee ee an aaa a 
| 
f=~- INCOMPLETE 1G: Se See ease ess =o= 
I : 
bos EX CERO Sess ea Seen eat = = 


The Read statevent allows a record to be read from 
must be an address generator. 


Example: 
READ RANDOM_LFILE CKEY] CBUFFER) 
ON EOF BSAD_LKEY *= TRUES 
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( <> Buffer -- ) ---> 


= sess wweaewanwwoanawen ae 


file. Buffer 
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b-- [Stacker] -----9s--- 2" ail 
| I 
P<° CQueue Mo mbar] Ss" <<sere=<~ ! 
! I a | 
i fe= oR S84 
I { 
tes CSOuUCp6rth Sr ars taser = ss SSe== { 
1 I 
[7- NO cartes cana eres csecen- man=] 
! | 
fos PAGE wenn cone neen ence encnna- 
{ I 
lm- SINGLE so cres sen senessncere 
I ! 
Po- DOUBLE wo cae nen een -e n= --1 
] i 
i-- TOPLOF_PAGE ~--9-------- ----] 
1 l 
I-- Channel Number cr ceseseecee= i 
Pewrsece erereee= on wow ceeee cee eerees om ee wees omen commer eer ew sete ancesaen> 
i i { 1 
Peet == Butier: ©2394 I=- WITH RESULT_LMASK =~ Mask <7] 
| Com nnn ce te nn ene ene n nn sen ecnces == waren cree cece eee eennese== i 
{ 1 
> ese aaneran a wa weeaeaemecaonaesea eseuwoenenwaeoeeew ewes ae aan aew aww e ae ew ame aawewan seem» 
I J 
I- 3 = ON oo" EQF cnctccr wenn ec ens ccenene= erece=- Statement --! 
1 ! 
P-- INCOMPLETE_I0 <---> -<"-2--"- “--1 


i | 
fm- EXCEPTION -2rteesnes seesceec enn] 


The Write statement allows arecord to be written to a files and 
to specify printer spacing tf it is a printer file. 
Example? 


WRITE LINE DOUBLE C"HEADING LINE"); 


WRITE LINE> 
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= SPACE S& Pyle Nae SSeS ee eee eS Se SS Expressicn ceeteeeseeeeer= 
| 1 ] 
P= TD rnd | 
] 1 
c= PRLEOF 2S 9<Sere4s= “a a<e= aS) 
|< 2ece- on Cece anew ewe wwes wens ewen seme rnerorerees i 
} 
> seman awon au Gea nemanwans Omens = = aenenwwanens wana a een anm mae ma eaewaeumaeanaaw sane | 
| ] 
Lee oes ON Se EOP See ss Se = ene eee Statement ---7] 


I= INCOMPLETE_IO =~! 
J j ! 
Pe EXCEP LION ee e?* | 


The Space statement is used to skip over records ina secuential 
file. If TQ Expression is used it must be a positive numbers and 
with position the file at that record, Expression aicne 
specifies the number of records to space from the current record 
Cit may be negative to go backwards). TO_EOF wilt space the file 

to its current end. 


2kip 


ee SKIP seers File: Nage 722s 10) -Ss2es= Channel Number -rerse-== 2s) 


The SKIP statement wilt cause the Line printer to skip to the 
specified channel number on itS carriage tape. (The Channel 
Number can range from t to 12). 


seek 


a* SEEK See sees File Nane. SSS 9s=". t Express ton = jets <=s<=s<sj 


The Seek statement is used with random disk files to read a 
record into the MCP's buffer in preparation for a Fead of that 
record. A Seek statement performed immediately before a Read 


Statement is less efficient than just reading the record. 
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Inacex 77 ) 
> 


Vatue 


The Put Fite Attribute statement allows an attribute of a file to 
be changed dynamically at run time. , 


Value can be either a predefined mnemonic for the attribute (Cas 


specified in the Fite Attributes section)» or an Excressione 
\ 


The following attributes are allowed. 
asterisk must be 


FILENAME 


Attributes sarked by) an 


ACCESSMODE OPTIONAL 
AREAADDRESS * FILESECTION OTHERUSE. 
AREALENGTE FLEXIBLE PAGESTZE 
AREAS FOOTING PARITY 
AUDITED FRAMES TIZE PROTECTION 
BACKUPK IND HOSTNAME SAVEFACTOR 
BACKUPPERMIETTED INT NAME SECURITYTYPE 
BLOCKSIZE KIND SECURITYUSE 
BLOCKSTRUCTURE LABEL SERIALNO 
BUFFERS LASTRECORD TITLE 
COMPRESSICN «* LOWERMARGIN TRANSLATE 
DATACOMPRES SION MAXRECSTIZE UPDATE 
DENSITY MAXSUBFILES UPDATEFILE 
DEPENDENTSPECS MINRECSTIZE UPPERMARGIN 
DIRECTION MYNAME * VOLUMEINDEX 
EXTEND MYUSE YOURHOSTNAME 
EXTMOOE NEWFILE YOURNAME * 
FAMILYINDEX OPENNOGREWIND YOURUSERCODE 
FAMILYNAME OPENWITHPRINT 

FILEK IND OPENWITHPJNCH 


Note that the MCP expects a twenty character string with no slash 
for FILENAME» instead of a name of the form afid/fid. 


Example: 
CARDS.TITLE s= "SDL2_SRC/EXPRESSION ON SDL2";3 


* 


* 
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Get Eide Attribute 


“-- File Name -* -« 77 Attribute 


The Get Fite Attribute statement will return 
returned will be 
*MCP COMMUNICATES AND STRUCTURES® 


attribute. The vatue 
character,» as specifiec 
product specification. 


The following attributes are allowed. 


asterisk must be indexed. 


ACCESSMODE 
AREAADDRESS «* 
AREAALLOCATED * 
AREALENSTH 
AREAS 

ATTERR 

ATTYPE 

ATTVALUE 
AUDITED 
AVAILABLE 
BACKUPFILENAME 
BACKUPKIND 
BACKUPPERMITTED 
BLOCK 

BLOCKSIZE 
BLOCKSTRUCTURE 
BUFFERS 

CENSUS * 
CHANGEDSUBFILE * 
COMPRESSION * 
CREATIONDATE 
CREATIONTIME 
CURRENTOLOC K 
DATACOMPRESSIOQN * 
DENSITY 
DEPENDENTSPECS 
DIRECTION 
DISPOSITION * 


Examples: 


in the 


04/19/31 
PLANT USAGE ONLY 


EXTEND 

EXT MODE 
FAMILYINDEX 
FAMILYNAME 
FILEX IND 
FILENAME 
FILESECTION 
FILESTATE * 
FLEXIBLE 
FOOTING 
FRAMES TIZE 
HOSTNAME 


-INTNAME 


KIND 

LABEL 
LASTRECOR DO 
LASTSUBFILE 
LINEF ORMAT 
LINENUM 
LOWERMARGIN 
MAXCENSUS * 
MAXRECSIZE 
MAXSUBFILES * 
MINRECSIZE 
MYHOSTNAME * 
MYNAME x 
MYUSE 
NEWFILE 


- 6716 


COMPANY CONFIDENTIAL 
SOL2 SYNTAX 
PeSs 2228 3519 


} 
Index =" ) ==] 


the vatue of the 
either numeric. or 


Attributes marked with. an. 


NEXTRECORD 
OPEN 
OPENNOREWIND 
OPENWITHPRINT 
OPENWITHPUNCH 
OPTIONAL 
OTHERUSE 
PAGESIZE 
PARITY 
PROTECTION 
RECORD 

SAVEF ACTOR 
SECURITYTYPE 
SECURITYUSE 
SERIALNO 
STATE 

TITLE © 
TRANSLATE 
TRANSLATING 
UP DATEFILE 
UPPERMARGIN 
USEDATE 
VOLUMEINDEX 
YOURHOSTNAME * 
YOURNAME * 
YOURUSECODE * 


WRITE LINE € "SOURCE FILE = * CAT SOURCE.TITLE )> 
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SEPARATE COMPILATION 


When a program becomes large it may be desirable to break the 
program up into several separate unitsr each of which may be 
independently comopiled.e. These separately compilec code files can 
later be bound together» and calls across unit boundaries 
resolved. 


A siaple'‘method» both for the user and compiler» is available in 
SDLZ. A GLOBAL unit containing all gtobal cata declarations and 
code must be compited Cwithout syntax errors) prior to 
compilation of any of the separate units. The sywbol table for 
the declarations Cexcluding procedures) is Saved in the partial 
code file-e- When a separate unit 15 compiled the symbol table for 
the global unit ts toaded into the compiterr making accessible 
the global declarations of the proyranm. 


The Procedure Daclaration has been extended to allow EXTERNAL 
procedures to be declared. The calts on theses» and the parameter 
checking» wilt be resolved by the binder. 


Separately compited units may not declare any ylobal variables» 
but may dectare global Cto that unit onty) Defines» Sets and 
Recordse 


There is no intention to hide data between unitsr onty to make 
possible a faster compitation turn around. ALL glebal data is 
availabte to any unit and all procedures are available from any 
unit providing the procedure has been declared EXTERNAL In the 
using unite 


Fach unit i185 one page in the segment dicticnary» so there is a 
Limit of €4 units to a program. To implement tnis facility the 
following control options are used: 


CREATE_GLOBAL 


This is used to specify to the compiter that the Global Unit of a 
separately compiled program is being compiled. The resulting 
"code file* is not executable» dut will have the name as defined 
in the compite statement. 


USE_GLOBAL (fite name] 


This is used to specify to the compiler that an independent unit 
of a separately compiled program is being compiled» and to load 
the Global symbol table from the file defined by file name. 


Sep@2rately conpiled units which do not access any global data may 
also be created. This is done by using the following control 
option: 


f=2 
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INDEPENDENT 


An independent unit can be bound into any programe 


The separétely compited units are bound together with the binder. 
The Binder witt check that each unit was compiled with the same 
version of the global units» and that the declarations of External 
procedures match. 
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COMPILER CONTROL 
Compiler control statements must be preceeded ty a single or 
doutte dollar sign €£& or $8)» beginning in column 1 of the source 
image. If a doubie "£8" is used» then the control statement is 
considered to he peraanent» and will be included in the new 
source file Cif one is requested). If a single '$* is used» then 


the controt statement is considered to be temporary» and will not 
be included in the new source file. 


CNC] AUTO_SEGMENT CDefautt = TRUE) 
The compiler wilt automaticatly break the program into 
seqmentsSe. The segment size is deteragined by the 
"AUTOU_LSEGMENT_SIZE? controt card. 
Segment breaks wilt occur at the end of a procedure 


when the code size exceeds the size specified in 
*AUTO_SEGMENT_SIZE?. 


AUTO_SEGMENT_SIZE (Default = 10000) 


Specifies the segment sizes in Bits for automatic 
segmentation. 


Example: 


$ AUTO_SEGMENT_SIZE 15009 


CNG] CLEAR_LOCALS (Default = FALSE) 


When TRUE the compiler wilt generate cede to clear 
Local data space to zeros» and tocal descriptors to 
NULL. 


[NO] CODE CDefault = FALSE) 


When TRUE the compiter witl tist the code generated. 


CREATE GLOBAL (Default = FALSE) 


Specifies to the compiter that the global unit of a 
separately compiled program is being compited. 


DEBLG_DUMP 
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Compiter Debugging 


[NO] DEBUG _ RECOVERY 


Compiler Debugging 


CNQJ] DEBUG _SCANNER 


Compiler Debugging 


CNG] DEBUG_SYMSOL_TABLE 


Compiler Debugging 


DUMPLSYMBOL_TABLE 


Compiler Debugging 


DYNAMIC_MEMCGRY (Default = 0) 


Specifies the amount of dynamic memory in Bits. 


ERRORLIMIT (Default = 109) 
Specifies the maximua number of errors which will be 
allowed. The compile wilt terminate when this timit is 
exceeded. 

[NO] ERROPLIST CDefautt = FALSE) 
When TRUE» the compiler will prirt the error messages 
in a separate error listing file CERRORS). 

TINO] INCLNEXK CDefault = FALSE) 
When TRUE» the source images read in froew an INCLUDE 


file will be copied to the new source file CNEWSOURCE). 
The INCLNEW option takes effect onty wnen the NEW 


option is specified. 
INCLUDE <tlitrary file name> 


Specifies that a Library source is to te read in and 
compiled. The remainder of the seaurce image contains 
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the file name. A library file say rot contain an 


INCLUDE statement. 


INDEPENOENT 


Specifies that a separately compiled urit is being 
compifed that does not access any global data. The 
independent unit created can be bound into any programe 


* 


INTRINSIC 


Specifies that an intrinsic is being compiled. 


C(NOJ] LIST COefault = TRUE) 


Specifies if a listing is to be produced. 


CNOJ LISTAMPERSAND CDefault = TRUE) 


If TRUE» conditional compilation statements beginning 
with an T&* wilt be included in the Listing. If FALSE 
statements beginning with an "&* will not be Listed. 
NO LIST overrides LISTAMPERSAND. 


CNGJ LISTOOLLAR (Default = TRUE) 


If TRUE» all temporary compiler contrat statements 
Cthose beginning with a single *#$") will te inctuded in 
the Listing. If FALSE» the temporary compiler control 
statements wilt not be tlisted. Permarent compiter 
control statements Cthose beginning with a double "£3') 
are always printed» regardless of the setting of the 
LISTDCGLLAR optione NO LIST overrides LISTDOLLAR. 


LISTINCL (Default = TRUE) 
If TRUE» source images from an included tibrary file 
will be Ltistede NO LIST overrides LISTINCL. 

~LISTOMITTED CDefault = TRUE) 

If TRUE» source that 


conditional compilation w 
overrides LISTOMITTED. 


is not compited because of 
TLL stitl be Listed. NO LIST 
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MERGE {Csource file name] (Default = FALSE) 


Specifies that the CARD file be nerged with the SOURCE 
file. The file name of the source file may be 
specified on the rest of of the source imagee If it is 
not specified>, then the axternal name of the SOURCE 
file will he usede 


NEw fnew source file name] {Default = FALSE) 
Specifies that a new source tile be created. The file 
name of the new source file may be specified on the 
rest of the source image If it 1s not Specified» then 
the external name of the NEWSOURCE fite will be used. 


PAGE 


Causes 2 page aject if listing. 


PROCECDURE_STACK_SIZE COefault = 20) 


Specifies the maximum number of nested procedure catls 
in this program. Memory for the control stack and the 


program pointer stack wilt be allocatec accordingly. 


SEGMENT 
: \ 
Causes 4a segment break to be generated» This option is 
allowed only when it immediately precedes a PROCEDURE 
declaration. . 
SEGMENT_PAGE 


Causes a page and segment break to be generated. This 
option is allowed only wnen it immediately precedes a 
PROCEDURE declaration. 


INOJ SEQCHECK (Default = FALSE) 


When TRUE» the compiter wit! verify that the sequence 
number of the current source image contains” only 
numeric characters» and is greater thar the sequence 
number of the previous source image. The sequerce 
number may be all blanks only if the previous sequence. 
number was also atl blanks. An invatid sequence number 
will generate a warningr not a syntax errore 
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STATIC_MEMORY 


Specifies the amount of static memcry to be allocatec. 


CNG] SUMMARY CDefault = FALSE) 


When TRUE» the compiter wit! produce a summary of the 
compilation process on the output listing. This 
summary is atways produced if the LIST cption is set» 
50 SUMMARY takes effect onty when NO LIST is specified. 


CNOJ] SYMBOLIC_DUMP (€Default = TRUE) 


When set» symbolic information will be ircluded in the 
code file for use by the Analyzer. When reset» this 
information will not be included in the ccde files fhe 
code file witt be smaller when this option is resets 
but the dumps will not be inf ormative. 


USE_GLUSAL CECglobal file name] 


Specifies to the compiter that a Separate unit is being 
compited. The fite name of the global code unit may be 
specified on tne rest of the source image. If no name 
is specified» then the external name of the GLOBAL file 
will be used. 


VOID <sequence number> 


The VOID option may be fottowed by an optionat 
Terminating Sequence Number. Atl subsequent records in 
the SGURCE file with sequence fields tess than or equal 
to the Terminating Sequence Number wilt be deleted. I[f 


: the Terminating Sequence Number is omitted» only the 
record with its sequence field equal te the sequerce 
field of the VOID record wiidt be deteted. The voOID 


option will not delete records in the CARD file. 


$=1 
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CONDITIONAL COMPILATION 


The conditional compiation facility atlows the programmer to 
selectively compite blocks of code without the necessity of 
physically adding or removing records. Conditional compilation 
controt records must begin in column 1 with an "8". 


SEI AND RESET STATEMENT 


Sa SSE Sa Ses eee a6 SS ne Ae ae ee ae ee ‘Opt lon Nate, “ses sesess ere “see | 
I | ; 
I~ RESET --1 


The SET and RESET statements witt both declare» if not aiready 
declared» a conditional compilation option name» and SET it to 
true» or RESET it to false. A reference tao a4 conditional 
compilation option name tnat has not been SET or RESET will be 
initialized as if it had been RESET. 


IE SIALEMENI 


-- IF --- Boolean Expression e-- True Inclusion Block cc ="**°"""> > 


> ese aan ewan a |; a oO a as ao ae on wm a am OE DoD ae a ee oe we mmm om Sea ee ee ee END — 2 a On oe oe 1 
j 
i-- ELSE er. Faise Incluston Block 7! 


| <n mee cee wen me esecnens AND tema scan ener ne en encnena| 
i ! 
I- OR <1 I 
! 


egaaeaeq@wsv»snwawae @ BQneneaeaeae es nenmeneaeaanw option name eee @es 22 @ ee & ae mm «Bb =n Oe om a a a ae Oe a 6) om OS on oe ee on 


The conditional compitation IF statement iS used to bracket 
blocks of code to be compited conditionally on the resutt of the 
Boolean Expression. 


a4 
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Examples 

&8RESET DEBUG _ALL 

&SET DEBUG_A 

A 2= B3 


RIF DEBUG_ALL OR CDES8UG_A 

WRITE LINE €"A CHANGED TO” CAT DECIMALCA+8) ds 
&ELSE 

WRITE LINE PAGEs 
& END 


Se Ue Pear | 
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SO0Le¢ CROSS REFERENCE 


The SDL2@ Cross Reference produces a symbolic cross reference from 
a source level SDL2 language file. The input ts assumed to be 
compitable ty the SDL2 Compiter. The output is a printer backup 
file. , : 


Each entry in the cross reference contains a short description of 
the type of that entry. The Line number where the variable was 
dectared is atso tinctuded. When doing a cross reference on a 
separately compited units» all global variabies are referrea to as 
external variables. Each entry also includes a list of the line 
numbers where the variable was assigned» anda separate tist of 
where the variable was referenced. 


The user may vary the widtn of the output file by file equating 
the MAXRECSIZE of the LINE file. The minimum line width is 60 
characters and the maximum line width is 132 characters. This 
option may be used to create 80 character files» Which will fit 
on a terminal screen. : 


When the cross reference program is executed» it wit ask for 
various option settings. The user shoultca use an AX command to 
set each of the optionse 


The user may request an alphabeticat or a structured Listing. 
The atphabetical listing places all variables in atphabetical 


order, except for record fietds. The fietd identifiers are 
listed under their respective record identifiers. The fields are 
indented’ in the order in which they were declared. The 


“structured listing indents all local data uncer each procedure. 
The default is to produce a structured listing. 


The user may also choose to nave sequence numbers printeds rather 
than Line numbers~. The default is to print line numbers. 


Example: 
HASH_ INDEX IS VARIABLE OF TYPE FIXED DECLARED ON LINE 30 
ASSIGNMENTS = 50+ 65» &0 

REFERENCES 2 62% 75» 84 
NAME_COMPARE I5 A TYPED PROCEDURE» RETURNING BOOLEAN» DECLARED ON 
LINE 342 

REFERENCES 7 S71> 589» 633 


FIND_IO IS A WARIABLE OF TYPE FIXED eee ee ON LINE 331 
REFERENCES : 3365 337» 338 


FIND_TOTAL_VALUE IS A PROCEDURE DECLARED ON LINE 340 


ge a 
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REFERENCES =: 389 


ASSIGNMENTS 345» 


SUB_L TOTAL IS A VARIABLE OF TYPE BIT DECLARED ON LINE 342 
REFERENCES = 347» 349 


TEMPLNAME_LENGTH IS A VARIABLE OF TYPE FIXED DECLARED OF LINE 332 
ASSIGNMENTS = 334 
REFERENCES 2 336» 339 


AREF_TASLE IS A RECORD DECLARED ON LINE 99 
ASSIGNMENTS & 958» 1052 
REFERENCES = 2164 


NAME_OFFSET IS A FIELD OF XREF_LENTRY» DECLARED ON LINE 27 


ASSIGNMENTS & 477» 512% 964 
REFERENCES 3: 337% 338% 4335 434 


NAME_LENGTH IS A FIELD OF XREF_LENT RY» CECLARED ON LINE 28 


ASSIGNMENTS * G71» SG7>» 960 
REFERENCES : 336» 426» 435% 440» 445 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BAREARA PLANT 


O4/19/351 


5eBs. PLANT USAGE ONLY 


COMPILER EXECUTION 


The primary input to the conpiler 


FILES 

CARD primary source input file 
is DISK) 

SOURCE used if "MERGE!" option is 

NEWSOURCE new source filer» if "NEW? 

CODE the generated code file 

GLOBAL code file of GLOBAL units 
specified 

LINE output Listing 

ERRORS error message listings if 
true _ 

LIBRARY _ file used to copy 
is specified 

FP8S internal file for 


See "MCP OPERATORS MANUAL’ for details 
progr amnSa« 


Examples 
2 CO SLD2/GLOBAL SDL2 LIBRARY; 
2? FI CARD NAME SDL2/SOURCE/GLOBAL> 


of MCP syntax 


“2151 


COMPANY CONFIDENTIAL 


SDL2 SYNTAX 
FeSe 2228 3519 


is from the file CARD. 


Cdefault device type 


true 
option is true 


if "USE_GLOBAL* is 


YERRORLIST" option is 


in library source if "INCLUDE® 


savirg file parameter blocks 


to compile 


Lend 
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BINDER EXECUTION 


FILES 
CARD : source input to the binder Cdefault device type is 
DISK) — 
CODE the bound code file 
LINE . output Listing 
oBJ the separately comnited units 
See ™CP OPERATORS MANUALY for details of MCP syntax to compile 
progr éms. 
QESCRIPTICN 
Syntax for the binder is? 
=<F IND *==2>=6>> ace alent === gtobal file namerorrorsroo WITH w--27--7> 
] 1 
| J<woce » =e] 1 
j j I | 
(==. == controt. 27° 1 <2! 
[Sense ss= ‘SSS =e SS } 
| | 
Pte ei es lea oe oes Separate file namer*<-er -<s=<ee<* 7p. SASS bac aaa a a 


The following is a List of legal control statements and their 
default values: 


[INO] SYMBOLIC_DUMP Ctrue) 
INQJ LIST Ctrue) 


The NO SYMBOLIC_OUMP control statement removes the symbol tabte 


from the final code file. The NO LIST statement deletes the 
Listing produced by the binder. 


a aa 
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Exagple: 

? CO SDL2 SDL2/BINDER LIBRARY; 

? FI CARD CARDO.READER; 

? DATA CARD 


BIND SDL2/GLOBAL WITH 
SOL2/DECLARE» SDL2/STATEMENT» SDL2/EXPRESSIONS 
? END 


ee a | 
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CROSS REFERENCE EXECUTION 


FILES 
CARD source input Cdefault device type is DISK) 
LINE output Listing 

Exampte: 


PEX SILZ/XREF 
2FL CARD NAME SDLe/SOURCE/GLOBAL 


XREF: SEQUENCE OR LINE NUMBERS C(S/L) DEFAULT = L 
<job#>AX 
XREF2 ALPHABETICAL OR STRUCTURED LISTING CA/S) DEFAULT = § 


<job#a#>Ax 


XREF =: CROSS REFERENCE OR <file name> HAS BEGUN | 


“140 


BURROUGHS CORPORATION : COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP O4/10/31 
SANTA BARBARA PLANT S$eBe PLANT USAGE ONLY 


ANALYZER EXECUTION 
EILES 


D dumpfile to be analyzed 
LINE output Listing 
Examples: 


PEX SDL2/ANALYZER> 
FI D NAME DUMPFILE/123; 


URTHER ANALYSIS 


The SDL2/ANALYZER does not provide ahex dump» 
and buffers» or an RSN dump» since these can 
running DUMP/ANALYZER with SWITCH L=l. 


Exaaple: 
2PM 123 SAVESSW1 = 13 


SDLZ SYNTAX 
PeSe 2228 3519 


file information 
be obtained by 


Executing DUMP/ANALYZER without specifying SAVE will remove the 


the dumofile. Execution of SDL2/ANALYZER will 
dumpfite. 


not remove the 
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APPENDIX A x= SDL TO S0L2 CONVERSTON 


This appendix provides information useful when converting SDL 
programs to SOL2. The first section describes SOL canstructs 
which must he changed and/or avoided when converting to SDL2. 
The second section describes the standard routines which are 
avéitable in SDL but not in SDL2. The third section describes 
how to convert SOL“styte file attributes to the CSG*Standard fite 
attributes used by SCDL2. 


DIFFERENCES BETWEEN SDL AND SO0L2 


The following differences between SOL and SDL2 can be resatved by 
direct text substitution. 


13 Cosoatial record declarations must use "1 instead of 
",e" to delimit fields. 


2) The relational operators listed on the teft» belows are 
no Longer allowed. They must be reptaced with the 
operators on the right. 


f= <> 
NEQ <> 
EQL = 
GTR > 
LSS < 
GEQ > 
LEQ < 


3) SWAP must be reptaced by READ_LOCK. 


4) DUMP_FOR_ANALYSIS must be replaced by DUMP. 


5) SPO_INPUT_PRESENT must be replaced by 
. OCT_INPUT_PRESENT. 
6) The vertical bar "1" cannot be used for assignments. 


It must be repiaced by “:=". 
73 SORT SWAP must be replaced by “s=s". 


&) DYNAMIC is no Longer required within dynamic variable 
declarations» and it must be replaced by tlanks. 


9) Valid SDL identifier names may cause reserved-word 
conflicts with SDL2.- New reserved words inciude: 


a eS oats 
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CHARACTER_SET MEMBER 
CONSTANT POINTER 
CONTAINS REPEAT 

DOWNTO SET 

EXTERNAL TYPE 
FOR UNION 
IN WHILE 
INTERSECT WITH 


The next set of differences cannot be resolved by cGirect textual 


substituttione However» atl occurences of tnese constructs in an 
SDL prograw can be easily converted to the ecquivatent SDL2 


construct e 


10) There is no UNDO C*) construct. Do~toops using this 
construct must be converted to named dovloops» and an 
undo of the outermost toop substituted for each 


instance of UNDO C(«). 


11) Alt formal declarations must be specified in the same 
order as the variables appear in the procedure heading. 


12) ALL close options must be separated by commase 

13) While the CHAR_TABLE function is still iaplemented in 
SDL2>» it no longer -.produces a bit table in the same 
order as SOL. Thus » programs which relied on 
the bit positions of a CHAR_TABLE string must be 
rewritten. For examples» the following SCL code checks 
Whether CH is a digit: 

| SUBBIT CCHAR_TABLEC%0123456789")» CH» 1) 
It must be replaced ty the following SDL2 code? 

CH IN CHAR_TABLE €"0123456789") 


14) The GROW construct is no longer necessary» since paged 


arrays will automatically grow in size. The number of 
elements in the array may be tested by the function 
ARRAY_BOUND. is 


15) The LOCATION functions which returned a 33-bit value» 
must be replaced by CODE_ADDRESS» which returns a 
Z32@“bit value. 


16) SOL2 treats comments and endvof"tines as separators. 
This means tokens cannot be split acress two source 
images» and comments cannot be embedded Within 
identifiers or literals. For example» the following 
SDL construct? 


¥ 


1S "3 
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A t= @42356/* 
«/70F 0a 


17) 


The next 
above. 


18) 


19) 


20) 


21) 


22) 


23) 


24) 


must be replaced by the following SDL2 construct? 


A 3= 342369 CAT 
a7DF Oa? 


OVERLAY was a procedure in SOL» but it is a function in 
SNL2. 


set of differences requires more thought than thase 


No descriptor manipulation is allowed. Att 
descriptorwrelated constructs in SOL must be reptaced 
by the use of reference variablese and the constructs 
DATA_LENGTH» ODATA_ADDRESS» ODATA_TYPE» FEFER_ADDRESS» 
REFER_LENGTH» REFER_TYPE » REFER_BOUND and 
REFER_PAGE_SHIFT. 


Selferrelative variables will not be initialized ta zero 
in SDL2» as they were in SDL. Instead» they must be 
explicitly set to zero if this is what the programmer 
intended. This could tead to subtle programming bugs» 
if any usages of nonwminitialized variables are not 
detected during the conversion orocesse However» if 
the & CLEAR_LOCALS dollarv-card option is specified» 
then the compiler will generate code to set allt tocal 
data space to zero and ali tocal descriptors to null. 


File declarations must use CSG~-Standard file 
attributes. The CHANGE> READ_FPB and WRITE_FPSB 
statements have been replaced ov direct references to 
Standard file attributes. Refer to the FILE ATTRIBUTES 
section of this appendix for more information. 


The OPEN statement does not altow any options» eg. 
OPEN INPUT. ALt open options must be set before the 
open request» using file attribute assignments. 


The result of the togicai operations OR» EXOR and AND 
is always of type bit. In SOL» the resutt was of the 
Same type as the tongest operand» and sc could 
sometimes be of type character. . 


Atl unstructured records in SOL had a type of bit. In 
SDL2>» the record will be of type bit only if at least 
one af its subfields is not of type character. If alt 
ot the subfields are character fields» then the recerd 
will be of type character. - 


The extended arithmetic operators X_ADD» X_SUBs» X_MUL» 
X_DIV and X_M00 always returned bit strings of a 
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 predictabte tength in SDL~ In SOL2» the tength of the 
result can vary» depending on the number of bits 
required to maintdin precision. 


Tne following list describes those features which will be the 
most difficult to change when converting from SOL te SOL2. 


25) No indexing is allowed. All indexing must be replaced 
by the use of record or reference variables. 


26) Na structured declarations are allowed» and 
“consequently no USE statements. All such declarations 
must be converted to records. These changes may be 


simplified by the use of structured records and the 
WITH statement. 


27) SEARCH _LINKED_LLIST and SEARCH_SERTAL_LIST use records 
instead of templates» and are formatted slightty 
differently than in SOL. 


a REMAPS is not allowed. It must be replaced either by 


cospatial record fietds»e or the use of reference 
variables. 


The following differences between the two Languages should also 
be noted, : 


29) The CREATE_MASTER and RECOMPILE capadilities do not 


exist in SOtL2. Tney have been replaced by the 
compilation of separate modules» which are tater bound 
together. 

39) Segmentation is less flexible in SDL2. Segmentation 


may only be done at procedure bcundaries» and anly by 
requesting that a new segment and/or page be generated. 
Notes however » that §DL2 provides automatic 
segmentations which was not available in SOL. 
User"specified segmentation is done through the use of 
the dollar cards & SEGMENT and $ SEGMENT_PAGE. SOL 
Segment statements will generate an advisory message» 
not a syntax errore Eventually» however» specifying 
SEGMENT outside of a doltlarstcard option wilt be 
considered a syntax error. Note that SEGMENT cannot be 
defined as blanks» Since this will work incorrectly 
when used in an If or Case statement. 


31) There have been some changes to the dottaru-card 
optionse Any usage of doltlar-card options in SOL 
should be checked against the allowable options in 
SOL2. In particulars» the monitoring» frofiting» and 
timing capabilities of SOL are not implemented in SDL2. 
Also» permanent dottlar options must be preceded by "3? 
instead of *"&*. The use of an ampersand will result in 
an advisory message» not a syntax error. Eventually» 
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32) 


howevers it wilt be considered a syntax errore 


In conformance with the CSG Compiler Centrot Images 
Standard» the internal names of some files have been 
changed. The primary input file is CART instead of 
CARDS» and the error message file is ERRORS instead of 
ERROR.-LINE. 
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STANDARD EUNCTIONS AND 


UNIMPLEMENTED STANDARD ROUTINES 


The following standard SDL functions 


available in SDL2. 


ACCESS_FILE_INFORMATION 
CHANGE_STACK_SIZES 
CLEAR 

CONSOLE, SWITCHES 
CONTROL_STACK_PITS 
CONTROL_STACK_TOP 

DE SLANK 
DELIMITED_TOXEN 

DI SPLAY_BASE 
ENTER_COROUTINE 
EVALUATION_STACK_TOP 
EXECUTE 
EXIT_COROUTINE 

GROW, 

HASH_CODE 

IN TERROGATE_INTERRUPT_STATUS 
INITIALIZE_VECTOR 
LAST_LIC_STATUS 
M_MEM_SIZE | 
MAKE_ DESCRIPTOR 
MAKE_READ_ONLY 

MAKE _READ_WRITE 
MONITOR 
NAME_STACK_TOP 
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PROCEDURES 


procedures are 


NEXT_ITEM 

NEX T_TOKEN 
PARITY_ADDRESS 
PREVIOUS_ITEM 
READ_CASSETTE 
READ_FILE_HEADER 
READ_FPE 
READ_OVERLAY 
REINSTATE 
RESTORE 
S_MEM_SIZE 

SAVE 

SAVE_STATE 
SEARCH _DIRECTORY 
SORT 

SOR T_MERGE 
SORT_SEARCH 

SOR T_STEP_DOWN 
SOR T_UNBLOCK 
THREAD. VECTOR 
TRACE 
VALUE_DESCRIPTOR 


WRITE_F ILE HEADER 


3519 


not 
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CONVERSTON OF STANDARD ROUTINES 


search Linked List 


SDL syntax: 
SEARCH _LINKED_LLIST (CSTART_RECORD> 
COMPARE_F IELD>» 
COMPARE_VALUE> 
RELATIONs» 
LINK_FIELD) 


SDL2 syntax? 
SEARCH_LINKED_LIST CSTART_ RECORD» 
COMPARE_FIELD RELATION COMPARE_VALUE> 
LINK FIELD) 


In SOL» START_RECORD could be either an expression or an address 
generator « In SOL2>» it must be an address generator with a 
RECORD type. COMPAFE_ FIELD and LINK_FIELD must be fields ey 
that record typee 


SDL returned the baserretative address of the structure 
containing COMPARE_VYLAUE>' if no match was founc it returned 
aFFFFFFaQ. SOL2 returns the structure containing COMPARE_VALLE>» 
or an address generator with a data address of @FFFFFFa. 


Exarple: 


SDL? RS_ADOR %= SLLCSTART_ADOR» RS_JOB_NUMBER CO]» 
JN» =» RS_Q_LINK (£0193 
IF RS_ADDA = aFFFFFFA | 
THEN NOT_FOUNDS 


SDL2: DECLARE FIRST REFERENCE RS_NUCLEUS» 
RSN REFERENCE PS_NUCLEUSs 
FEFER_ADDRESS CFIRST» START_ADCOR)3 
REFER_ADORESS CRSN» SLLCFIRST> 
RS_JOB_NUMBER = JN» 
RS_Q_LINK))3 
IF DATA_ADDRESS CRSN) = OFFFFFFa. - 
THEN NOT_FOQUNDs 
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search Serial List 


SDL syntax: 


SEARCH _SERTIAL_LIST CCOMPARE_VALUE> 
RELATION» 
COMPARE_FIELD»s 
START_RECORD> 
TABLE_LENGTH» 
RESULT VARIABLE ) 


SODL2 syntax: 


SERACH SERPTAL_LIST CSTART_RECORD>» . 
COMPARE_FIELD RELATION COMPARE_VALUE> 
TABLE_ITEMS ) 


START_RECOROD must be an address generator with a RECORD types and 
COMPARE_FIELD must be a field within that record type. Ore 
STARTL_RECORD can be any address generator» and "COMPARE_FIELD* 
must Ce omitted, in that case START _RECORD will be used as_ the 
comparison fiald. 


In SOL» TAZLE_LENGTH specified tne number of bits to be searched. 
In SDL2- TABLE_LITEMS must be used instead of JTABLE_LENGTH. 
TABLE_ITEMS specifies the nunaber of sequential entries that are 
to be searched. 


SCL returned a 1 if the search succeeded» and a0O if it failed» 
with RESULT_VARIASLE being set to the base relative address of 
the entry containing COMPARE_VWALUE. SDL2 does not use a 
parameter to return the result of the searche Instead» the 
function returns the element number of the matching entry Cthe 
first element is 9). If no match is found» then TABLE_ITEMS will 
be returned. ; 


Example: 


SOL 2: IF SSLCJN» =» UNIT_JOS_NUMBER C0O]> 
. IGAT_REC CHINT.~IOAT_POINTER J» 
HINTS »ITOAT_END = HINTS. IGAT POINTER? 
IOAT_ADDR) = 0 
THEN NOT_LFOUND; 


SOL2: DECLARE IGAT REFERENCE IOAT_RECS 
REFER_ADDRESS CIOAT» HINTS-~IOAT_POINTER); 
ENTRY 2= SSL CIOGAT>» UNIT_JOB_LNUMBER=JN»> ITOATLENTRIES)> 
IF ENTRY = IOGATLENTRIES 
THEN NOTLFOUNDs; 
ELSE-IOATLADDR := HINTS-IOAT_ POINTER +t 
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ENTRY * IQAT_SIZE3 
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Clear 


SOL syntax: 
CLEAR ARRAY? 
SDL2 syntax? 


PROCEDURE CLEAR CA)3 
FORMAL AC#) SITS 
DECLARE MAXINDEX FIXED, 
INDEX FIXED; 
MAXINDEX t= ARRAY_BOUND CA) = 13 
FOR INDEX 2= 0 TQ MAXINDEX 
ACINDEX) 2= 03 
RETURNS 
END CLEARS 


CLEARCARRAY)> 


SDL2 SYNTAX 
PeSe 2228 3519 
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FILE ATTRIBUTES 


SOL2 uses CSGStanaard file attributes in Fite Declaration 
statements» and in Get/Put Attribute statements» The 
CSG-Standarc attributes implemented by the 810C0 #-MCP are 
documented itn the "MCP COMMUNICATES AND STRUCTURES® product 
specificaticn. 


This section lists the attrioutes allowed in SDL» along with the 
equivalent standard attributes available in SOL2.. It does not 


tist etl of the stancard attributes allowec by SDL2. These are 
documented in the Input/Outout section. 


Attributes Used In Eile Declaration Statements 


SOL SDL2 


ALL_AREAS_AT_LOPEN not implemented 

AREA_SY_CYLINOER not implemented 

AREAS = areas/blks_per_area AREAS = 

AREALENGTH = 

BUFFERS = BUFFERS = 

DEVICE =. KIND = Cin alphabetical order) 
CARD DATARECCRDER 
CARO_PUNCH forms backup DISK 
CAROD_PEADER OOT | 
CASSETTE : PAPERPUNCH 
DATA_RECORCDER_80 PAPERREADER 
DISK access PORT 
DISK_FILE access... PRINTER 
DISK_PACK access PUNCH 
DISK_PACK_CENTURY access PUNCH890O 
DISK_PACK_CAELUS access PUNCH9I6 
PAPER_TAPE_PUNCH forms backup QUEUE 
PAPER_TAPE_READER READER 
PORT : READERSORTER 
PRINTER forms backup READERSO 
PUNCH forms backup READERQE 
PUNCH PRINTER forms backup REMOTE 
QUEUE (max msgs) TAPE 
QUEUE Cmax msgs) FAMILY Csize) TAPECASSETTE 
READERP_PUNCH_PRINTER forms backup TAPEPE 
READER_SORTER TAPEZ 


READER_ 96 TAPES 
REMOTE (Cmax msgs) remote_options | 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT Sa. 
SORTER_READER 

SPO 

TAPE 

TAPE_NRZ 

TAPE_PE 

TAP E_7 

TAPE_9 


access = null 
SERIAL 
' RANDOM 
DELAYED RANDOM © 
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SERTAL_WITH_OVERWRITE 


forms = null 1! FORMS 
backup = null 
BACKUP 
BACKUP DISK 
“BACKUP TAPE 
NO BACKUP 
OR BACKUP 
OR BACKUP OISK 
GR BACKUP. TAPE 


queue max msgs 


queue family size 


remote options = WITH HEADERS 


FAMILY 


END_OF_PAGE_ACTION 


EUL INCREMENTED 


EULSPECIAL = 


EXCEPTION_MASK 


FILE_TYPE = 
DATA ote at 
INTERPRETER 
CODE 
INTRINSIC: | 
PSR_DECK 


HOST_NAME = 
INVALID_CHARACTERS = 


LABEL = mfid/fid 
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ACCESSMODE = 
SERTAL 
RANDOM 
not implemented 
not implemented 


not implemented 
BACKUPKIND = 
DISK 
TAPE 
BACKUPPERMITTED = 
DONTCARE 
DONTBARKUP 
MUSTBACKUP 
not isplemented 


not implemented 


not isplemented 


not imolemented 


\ 
> FAMILYINDEX = 
/ 


not implemented 


FILEKIND = 


DATA — | 
INTERPRETER 
CODE 
INTRINSIC 
/ PSEUDO_CARD 


HOSTNAME = 
not implemented 


TITLE= 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT IDs 


LABEL_TYPE = 
ANSI 
BURROUGHS 
UNLABELED 


LOCK 


MODE = 
ODD 
EVEN 
EacDIic 
ASCII 
BCL 
BINARY 


MULTI_PACK 
NUMBER_OF_STATIONS = 


OPEN_OPTION = 
TNP UT 
INPUT/OUTPUT 
INTERPRET 
LOCK 
LOCK_ouT 
NEW ° 
NO_REWIND 
ON_ BEHALF _OF 
OUTPUT 
PUNCH 
PRINT 
REVERSE 
STACKER S 


OPTIONAL 
PACK_ID = 
PROTECTION = 
PROTECTION_IO = 


RECOROS = size/recs_per_bltk 


REEL = 
REMOTE_KEY 
SAVE = 


SECURITYTYPE = 


PLANT USAGE 
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LABEL = EBCDICLASEL or ASCTILABEL 
not implemened 
LABEL = OMITTED or OMITTEDEOF 


not implemented 


PARITY = ODD 
PARITY = EVEN 
EXTMODE = EBCDIC 
EXTMODE = ASCII 
EXTMODE = BCL. 
EXTMODE = BINARY 


not imptemented 


not isplemented 


MYUSE = [0 
OPENNGREWIND = TRUE 
OTHERUSE = IN 
OTHERUSE = SECURED 
NEWFILE = TRUE 
GPENNOREWIND = TRUE 
not isplemented 
MYUSE = QUT 
OPENWITHPUNCH TRUE 
OPENWITHPRINT TRUE 
DIRECTION = FEVERSE 
not implemented 


OPTIONAL = TRUE 
TITLE = 
SECURITYTYPE = 
SECURITYUSE = 


MAXRECSIZE = 
BLOCKSIZE = 


VOLUMEINDEX = 
not implemented 
SAVEFACTOR = 


SECURITYTYPE = 
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SECURITYUSE = SECURITYUSE = 

SERIAL = SERIALNO = 

TRANSLATE = fileid TRANSLATE = FORCESOFT 
fileid not iaplemented 

USE_INPUT_BLOCKING DEPENDENTSPECS = TRUE 

USER_NAMEC_ BACKUP an implemented 

VARIABLE - BLOCKSTRUCTURE = VARIABLE 


WORK_FILE not implemented 
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Attributes Used In Change CGet/Put) Statements 


All attributes altowed in an SDL2 Fite Declaration statement are 
atlowed in a Get/Put attribute statement. In additiar»s the 
following attributes are allowed in a Get/Put Attribute 
statements» tut are not allowed in a File Declaration statement. 


SDL SOL2 


AREA_BY_CYLINDER = | not jap anented 
BLOCKS_PER_AREA = AREALENGTH = 
EULDRIVE = FAMILYINDEX = 
EULINCREMENT = _ FAMILYINDEX = 
FILE_ID = FILENAME = 
MULTILFILE_ID = _ FILENAME = 
NUMBER_OF_AREAS = | AREAS = 


OPEN_ON_BEH ALF _OF not implemented 


Mi 


QUELE_FAMILY_SIZE \not implemented 


QUELE_MAX_ MESSAGES = not implemented 
REMOTE_HEADERS = not iaplemented 


RECCROS_PER_BLOCK =~ BLOCKSIZE = 


RECOROD_SIZE = MAXRECSIZE = 
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DOLLAR OPTIONS 


SDL2 allows different compiler options than SDL. Most of the 
changes were made to conform to the CSG Campiter Controt Images 
standard.» — 


SOL allowed permanent compiler options to be preceded by an *8&*. 
SDL2 uses "$8" instead. The use of an "&' will generate an 
advisory message» not a syntax error. 


This section lists the options allowed in SDL» aleng with the 


equivalent options available in SDL2. It does not list atl of 
the compiler options allowed by SDL2. These are documented in 


the Compiler Control sectione 


SDL SOL2 
ADVISORY not implemented 
AMPERSAND LISTAMPERSANC 
CHECK SEQCHECK 
CODE CODE 
CONTROL LISTDOLLAR 
CONVERTDOTS not implemented 


CREATE_MASTER 


not implemented 


PROCECURE_STACK_SIZE 


CSSIZE 

DEBUG various 

DETAIL not iaplemented 
DOUBLE not iaplemented 
DYNAMIC SIZE DYNAMIC MEMORY 
ERROR_FILE ERRORLIST 
ESSIZE STATIC_MEMORY 


EXPAND DEFINES 
FREEZE 


FORMAL_CHECK 


not imptemented 
not implemented 


not implemented 
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INTERPRETER 
INTRINSIC 
LIBRARY_PACK 
LIST 

LISTALL 

LOCKT 

MERGE 

MONITOR 
NESTLPROCEDURE_TIMES 
NEW 
NO_DUPLICATES 
NO. SOURCE 
NSSIZE 

PAGE 

PASS_ENO 
PPSSI2ZE 
RECOMPILE 
RECOMPILE_TIMES 
SEQ 

SINGLE C€SGL) 
SIZE 

SUPPRESS 

TIME_ BLOCKS 
TIME_ PROCEDURES 
TIME_MCP 
UNDERSCORES_IN_FILE_NAME 


USECOTS 
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not iaplemented 
INTRINSIC 
not implemented 
LIST 
LISTOMITTED and LIST 
not implemented 
MERGE 
not iunleaented 
not implemented 
NEW 
not implemented 
not iaplemented 
STATIC_MEMORY 
PAGE 
not implemented 
PROCECURE_STACK_SIZE 
not implemented 
not implemented 
not inaplemented 
not isplemented 
not iagplemented 
not implemented 
not implemented 
not implemented 
not implemented 
not inplemented 


not implemented 


25716 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 04/10/81 SDL2 SYNTAX 
‘SANTA BARBARA PLANT SeB. PLANT USAGE ONLY P.2Se 2228 3519 
VOIC VOID 

VSSIZE STATIC_MEMORY 

WORKING _SET_BYTES not implemented 

XMAP not implemented 

XREF . not implemented 


XREFLONLY not iaplemented 
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INDEX 


Accept 6-19 

ACCEPT 6-19 

ACCESSMODE 672» 6715» 6715 
Add Factor 4-6 


Address Generator 4-14 

ANALYZER EXECUTION 141 

AND 4-3 

And Factor An-4 

APPENDIX A =~ SOL TO SDOL2 CONVERSION 15-1 


AREAADDRESS 6-15» 5-16 

AREAALLOCATED 6715» 6716 

AREALENGTH on~2» 6°15» 6°16 

AREAS 6-29 6°15» 6716 

Array Bound cae | 

Array Subscript 4-93 

ARRAY_BOUND 5-1 

ASCII 672 

ASCIILABEL 6-2 

Assignment Expression 4-11 

ASSIGNMENT STATEMENT 3-2 

ATTERR 6-15 

Attricute Vaiue os age 

ATTRIBUTE_¥VALUE 5-1 

Attributes Used In Change CGet/Put) Statements 15°15 
Attributes Used In File Declaration Statements 15°11 
ATTVALUE 6-16 
ATTYPE 6716 

AUDIT 6°11 

AUDITED 6°72» 6715» 6716 

AVAILABLE 6-16 


BACKUPFILENAME 6716 

BACKUPK IND 67-2» 6-15» 6716 
BACKUPPERMITTED 6-2» 6°15» 6-15 
Base Register 5 
BASE_REGISTER 5 
Binary ome 
BINARY S“2» 6-2 
Binary Search 5-2 

BINARY_SE ARCH 522 

BINC 12-1 

BINDER EXECUTION 12-1 

BIT 274, S74&e 5°15 

BIT STRINGS 1-3 

BLOCK 6-15 

BLOCKSIZE 672» 6715» 6°16 
BLOCKSTRUCTURE 672,» 6°15» 6-15 
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BODY a=1 

BOL 672 

Booleégn Expression 9-1 


BPI1600 6°72 

BPI200 6-2 

BPIES6 6-2 

BPIe&0Q 6-2 . 
BUFFERS 6°22 6°15» 6°15 
Bump 5-22 5°19 

BUMP 572 5°19 

BY 5-25 5°65 S19» 5-21 


Call 5719 

CALL 5719 

CALL STATEMENT 3-3 

CARD_ PUNCH 6-2 

CARD_READER 6-2 

CASE 3-4» 3°75 4°12 

Case Expression 4°12 

CASE STATEMENT 3-4 

CASSETTE 6~2 

CAT 4m} 

Cat Factor 4-2 

CENSUS 6" 16 

CHANGED SUBF ILE 6-16 
CHAR_TABLE 5°2 

CHARACTER Zeke Se-4se 5-15 
Character Fitt 5-19 
CHARACTER STRINGS 1-3 
Character Table 5-2 
CHARACTER_SET 274 
CHARCATER_F ILL 5713 
CIVILIAN S=15 

Clear 15719 

Close 6°11 

CLOSE 6°11 

CODE 6-2 ’ 
Code Address 5<3 

CODE_ ADDRESS 5-3 
COMMUNCATE*WITH_GISMO 5°20 
Communicate 5719 
COMMUNICATE 5-19 
Communicate With Gismo 5-3» 5-20 
COMMUNICATE _WITH GISMO 573 
Compile Card Information 5=20 
COMPILE_CARD_INFG 5-20 
COMPILER CONTROL 8-1 
COMPILER EXECUTION 1li-1 
COMPRESSION 6715+ 6716 
CONCITIOQNAL COMPILATION 9-1 
CONSTANT DECLARATION e-3 
CONVERSION OF STANDARD ROUTINES 15°7 
Convert 5<°4 
CONVERT a4 
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Cospatial Fieta List 278 
COUNTER as 

CREATIONDATE 6-16 

CREATIONTIME 6-16 

“CROSS REFERENCE EXECUTION i3-1 
CRUNCH 6-11 

CRUNCHED 6-10 

CURRENTSLOC X 6-16 


DATA 6-2 
Data Address 5 
Data Length 5 
Data Type 575 
DATA_ADDRESS 5=5 

DATA_LENGTH 5-°5 

DATA_RECORDER, 80 672 

DATA_TYPE 5-5 

Datacomm Initiate I/0 5-21 
DATACOMPRESSION 6715» 6716 
Date ale 

DCTINITIATE_1T0 5-21 
DC_IO_COMPLETE Pte Uf : 
DCC_i 6-2 

DCC_2 672 

Decimal 5°56 

DECIMAL 5°6 

DECLARATIONS 2-1 

DECLARE 2°12 

Decrement 5-6» 5-21 

DECREMENT 5-6° S21: 

Defautt File Attributes 678 - 
DEFINE 272 

DEFINE DECLARATION 2=2 

Define Heéd 2-2 

Define Identifier 272 

Define Parameter List aay 
DENSITY o72» 6°15» 6°16 
DEPENDENISPECS 6-15 
DEPENDENTSPECS 672» 6°16 
DESCRIPTION 12-1 

DFC_1 672 

DFC_3 §=-2 
DIFFERENCES BETWEEN SDL AND SDL2 
DIGIT 5°15 

DIRECTION 6-2» 67°15» 6716 
Disable Interrupts ce a | 
DISABLE_INTEPRUPTS 5-21 

DISK 6-2 
DISK FILE 
DISK _ PACK 
Dispatch 5 
DISPATCH 5 
Display 6- 
DISPLAY 6° 


ae 
5 
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DISPOSITION 6-16 

pO 02-7 

DO STATEMENT 3-7 
DOLLAR OPTIONS 15716 
DONTBACKUP 6-2 
DONTCARE 6-2 

DOUBLE €-13 

DOWNTO 3-8 

DPC_1 6-2 


DUMMY 279 
Dump 9=21 
DUMP 5=21 


Dynamic Memory Base 5-7 
DYNAMIC_MEMORY_BASE S=7 


EBCDIC €-2 

EBCDICLABEL 6-2 

ELSE 3749 3759 37-9» 4-129 4-13 
Enable Interrupts 5-22 
ENABLE_INTERRUPTS 5-22 

‘END 2-14s 3°7 

END CASE 3-4y% 32-5 

EQF 6712» 6°13» 6°14 

Error Communicate so"2e 
ERROR_COMUNICATE 5-22 


EVEN 6-2 
EXCEPTION 6°10» 6712» 6°13 
EXOR 4-2 


Expression 4-1 
EXPRESSIONS 4-1} 

EXTEND 6715» 67°16 
Extended Arithmetics 5-18 
EXTERNAL 2-14 

EXTMODE 6°25 6°15» 6-16 


FAMILYINDEX 6-2» 6°15» 6-156 
FAMILYNAME 6-2» 6°15» 6°15 
FDC _1 672 

Fetch 5722 

FETCH 5-22 

Fetch Communicate Message Pointer 5°7 
FETCH COMMUNICATE_MSG_PTR 5-7 
Field List 2-8 

Field Selector 4-9 

FILE 6-1 . 

File Attributes 6°2 

FILE ATTRIBUTES 15-11 

FILE DECLARATION 273 

FILE DECLARATISGNS 671 

FILE LOCKED 6-10 

FILE MISSING 6~10 

FILEKIND €~27 6715» 6716 
FILENAME 6-22 6°15» 6°16 
FILES limris 121s 14-1 


~ BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 04/10731 
SANTA BARBARA PLANT Se3e PLANT USAGE ONLY 


FILESECTICN 6715» 6-16 
FILESTATE 6°16 

FILLER 2-85 279 

FIRST 3711 

FIXED 2749 Seber 672 

FIXED NUMEERS t=2 
FLEXIBLE E-2» 6°15» 6-16 
FOOTING 6°72» 67°15» 6716 
FOR 3-8 

FOR STATEMENT 3-8 
FORCESOFT 672 

FOREVER 3-7 

FORMAL 2-14 

Formal Parameter Declaration 2714 
FORMAL_ VALUE 2-14 

FORWARD 2714» 6°72 
FRAMESTIZE o-w2e2 67155 6°15 
Freeze Program 5-23 
FREEZE PROGRAM 5723 
FURTHER ANALYSIS 14-1 


Get File Attribute 6716 
GETLATTRI®UTE 6716 
GUARDED 5°2 


Halt s=25 

HALT 5-23 

Hardware Monitor 5=*23 
HARDWARE_MONITOR 5°23 
Hex Sequence Number > faa | 


HEX_SEQUENCE_NUMBER 5-8 
HOSTNAME 6"2e 6715» 6716 


Identifier List 2-12» 2°15 
IDENTIFIERS 1=2 

IF 297 4°13 

If Expression 4°13 

IF STATEMENT 379» Jr] 
IF_NOT_CLOSED 6°7Ll 

IN J-11» 4-4» 6-2 
INCOMPLETE_I0 6°12» 6°13 
INOTRINSIC 672 
INPUT /OUTPUT 6 
INPUT/OUTPUT STA 
INTERPRETER 6° 
INTERSECT 4-3 

INTNAME 6~2s 6715» 6716 
Io 6-2 


“1 
TEMENTS 6-10 
2 


KIND 6-2» 6°15» 6716 


LABEL 6-2» 6°15» 6°16 
Label List 376 
Labeted Case Statement 35 


Tx-5 


COMPANY CONFIDENTIAL 


SDL2 SYNTAX 


BURRGUGHS CCRPORATION 


COMPUTER SYSTEMS GROUP 94/10781 
SANTA BARBARA PLANT 5S.eB. PLANT USAGE ONLY 


Labeled Statement List a-5: 
LAST 3-11 : 
LASTRECORD 6-15» 6716 
LASTSUBFILE 6“16 
Length a7 3 
LENGTH ae 

Limit Register 5 
LIMIT REGISTER 5° 
LINEFORMAT 672» 6 
LINENUM 6-16 

LOCK 6711 


1'om 


16 


LOWERMARGIN 6-2» 6°15» 6716 


MAXCENSUS 6-16 

MAXRECSIZE 672» 6715» 6°16 
MAXSUBFILES 62s 6°15» 6715 
MEMBER OF 274 
Message Count a2 
MESSAGE_COUNT a2 
MILITARY 5245 
MINRECSIZE 6-2» 6715+ 6°16 


3 


MOO 4-6 

MTC_1 672 
MTC_2 6-2 
MTC_3 692 


Multiply Factor 4-7 
MUSTBACKUP 672 

MYNAME 6-2» 6°15» 6-16 
. MYUSE 6725 6°15» 6716 


Name of Day 
NAME_OF_DAY 
NEWFILE 6°2» 6°15» 6-16 
NEXTRECORD 6°16 

NO 6°13 

NO_REWIND 6-11 

NOSOFT 672 

NOT 3S71lis 474 

Nutt 5-8 

NULL 5-8 

NYHOSTNAME 6-15 


ooo 672 

Odt Input Present 5-9 
ODT_INPUT_PRESENT 5-9 
OF 4-12 

OMITTED 6°2 
OMITTEDEOF 6°2 

ON 6710» Gr-1l26 67°13» 6-14 
ON EOS 3-11 

ON EOS_CYCLE 3-11 

ON_ BEHALF _OF 6-10 
Open 6-10 

OPEN 6710» 6716 
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OPENNOREWIND 672, 6715» o716 
OPENWITHPFINT 6°29 5715» 6-16 
OPENWITHPUNCH 6°27 6715» 67156 
OPTIONAL 672» 67°15» 6°16 

OR 4-2 

Or Factor 4-3 

OTHERUSE 6°72» 6715» 6°16 

OUT 6-2 

Overlay 5°9 

OVERLAY 5°9 

OVERRIDE, SECURITY 6-11 


PAGE 6713 

PAGED 2°25 

Paged Array Identifier 2713 
PAGESIZE 6-2» 6°15» 6°16 
PAPER_TAPE_PUNCH 6-2 
PAPER_TAPE_READER 672 
PAPER_TAPE_READER_1 6-2 
Parameter List 2-145 3-3 
PARITY 6-2» 6715» 6°16 

PC_5 6-2" 

POINTER 276 

Pointer Type 2-6 

PORT 6-2 

PRINTER 672 

PRIVATE 6-2 

PROCEDURE 2714 

PROCEDURE DECLARATION 2714 
Processor Time 5-9 
PROCESSOR_TIME 5=9 
Program Switches 5-9 
PROCRAM_ SWITCHES 5-9 
PROTECTION 6715» 6 
PSEUCO_CAFD 6-2 
PUBLIC 6-2 

PURGE 6711 

Put Fite Attribute 6-15 


Q_ WRITE_OQCCURRED 5717 
QUELE 672 


RANDOM 6~2 
Read 6-12 
READ 6-12 
Read Lock 5-9 
READ_LOCK 5°9 
READ_OK S217 
REACER_PUNCH_PRINTER 6-2 
READER_ SORTER 6-2 
REACER_SORTER_2 672 
REACER_ 96 6-2 

RECORD 2-8» 2°79» 6716 
RECORD DECLARATION 278 
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REDUCE 37 ii 


REDUCE STATEMENT 


REEL 
REFER 
Refer 
Refer 
Refer 
Refer 
REFER 
Refer Type 

REFER_ADDRESS 


6-11 
371¢ 
Address 
Bound. 
Length 


Page Shift 
STATE MENT 
5 


GROUP 
3B. 


tour att 


3-24 


5724 


5-24 
5724 
3710 
24 
5°24 
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REFER _ BOUND 52°24 | 
REFER_LENGTH 5724 
REFER PAGE SHIFT 5-24 
REFER_ TYPE 5-24 
REFERENCE 275» 
Reference Type 
Relational Factor 
“RELEASE 6-11 
REMAPS 279 
Remaps Object. 
REMOTE 6“ 2 
REMOVE 6-11 
REPEAT = as I val 
REPEAT STATEMENT 
RETURN 3-14» 6-10 
RETURN STATEMENT 
REVERSE 672 
Reverse Store 
REVERSE _STORE 
ROLLOUT 6711 


2-13 
2-5 
4-5 


2710 


Bea? 
3-14 


3°25 
5-25 


SAVEF ACTOR 
Scope of an Identifier 
SOL2 CROSS REFERENCE 
SDL2@ LANGUAGE SYNTAX 
Search Linked List 
Search SDL Stacks 
Search Seriat List 
SEARCH _LINKED_LIST 
SEARCH_SDL_STACKS 
SEARCH_SEFIAL_LIST 
SECURED 6-2 
SECURITYTYPE 
SECURITYUSE 
Seek 6614 
SEEK 6714 
selector 4-9 
SEPARATE COMPILATION 
Sequence Number 5-14 
SEQUENCE. NUMBER 5714 
SERTAL 6-2 
SERIALNG 672» 
SET 2-11 


6-25 67°15» 6°16 
271i 
10-1 
p as | 
57 il» 
5°12 
5-12» 
5-11 
5°12 
5712 
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SET AND RESET STATEMENT = 1 

Set Constructor 4-10 

SET DECLARATION 2711 

SETTING 3-11 

Simple Identifier 2713 

Simpte Type 2-4 

SINGLE 6713 

Skip 6-14 

SKIP 6"14 

Space 6714 

SPACE 5-14 

SPECIAL CHARACTERS 1-3 

SPO 6~2 

SPOLINPUT_PRESENT 5°17 

SPO_L2 6°72 

STANDARD FUNCTIONS 5-1 

STANDARD FUNCTIONS AND PROCEDURES 15-6 
STANDARD PROCEDURES 5°19 
STANDARD PROCEDURES and FUNCTIONS 5-1 
STATE 6°16 

STATEMENT-LIST 3-1 

STATEMENTS 371 

STOP $15 

STOP STATEMENT 3-15 

STRUCTURE OF AN SDL2 PROGRAM 1-2 
Structured Fietd Identifier 2°79 
Structured Field List 2-9 
structured Record 2-9 

Subbit S-14 

SUBBIT 5-14 

Substr 5-15 

SUBSTR S-15 

SWAP STATEMENT 3-16 

SwWITCH FILE DECLARATION 2-73» 6°79 
SWITCH_FILE 6°9 


TAPE 6-2 

TAPE_7 6-2 

TAPE_9 672 

Test 5+15 5. 57°25 
TEST 5-155 5°25 
Thaw Program 5-25. 
THAW_ PROGRAM 5-25 
THEN 3-99 4°13 
Time 5°15 

TIME tags 

TIME_ TENTHS thant I 
Timer 5716 

TIMER 5°16 

TITLE 672» 6715» 6716 
TO 4-10» 6-14 
Todays_Date 5716 
TODAYS_DATE 57“16 
TOKENS 1-2 
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TOP_OF PAGE 6-13 

Translate 5726 

TRANSLATE 5-26» 672» 6715» 6°16 
TRANSLATING 5-16 

Type 27k 

TYPE DECLARATION 2-7 

Typed Procedure Call 4-3 

TYPES 2ch 


UNDO 3717 

UNDG STATEMENT 3717 

UNIMPLE MENTED STANDARD ROUTINES 15-6 
UNION 4=2 

Unlabeled Case Statement 3-4 
Unstructured Record 2-8 

UNTIL 3-8» 3Srile 3°13 

UPDATEFILE 6"2» 6°15» 6°15 
UPPERMARGIN 6°25 5$=*15» 6-16 

USEDATE 6716 


VARIABLE 6-2 

VARIABLE DECLARATION Co id. 
Variable Identifier 2-12 
VOLUMEIND EX 6°2s 6715» 6-16 


wait 5-17 

WAIT 5°17 

WHEN 5-17 

WHILE 3-18 

WHILE STATEMENT 3718 
WITH 3-19» 6°11- 12-1 
WITH RESULT_MASK 6-12 
WITH STATEMENT 3719 
Write 6°13 

WRITE 6-13 

WRITE_OK Sm 17. 


X-ADD 5°18 
X_DIV 5-18 
X_MOD S718. 
X_MUL 5-18 
X_SUB 5-18 


YOURHOSTNAME 6°15»5 6°16 
YOURNAME 6715 
YOURUSERCODE 6-15» 6716 


zip 5726 
ZIP 5726 
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